- if ($fromversion == 0) {
- while ($line =~ m|^(.*?)<cpu(.*?)power="([^"]*)"(.*)$|) {
- $line = "$1TOTOTUTUTATA${2}TOTOTUTUTATA".($3*1000000)."TOTOTUTUTATA${4}";
- }
- while ($line =~ /^(.*?)TOTOTUTUTATA(.*?)TOTOTUTUTATA(.*?)TOTOTUTUTATA(.*)$/) {
- $line = "$1<cpu${2}power=\"$3\"$4";
- }
- while ($line =~ m|^(.*?)<network_link(.*?)bandwidth="([^"]*)"(.*?)$|) {
- $line = "$1TOTOTUTUTATA${2}TOTOTUTUTATA".($3*1000000)."TOTOTUTUTATA${4}";
- }
- while ($line =~ /^(.*?)TOTOTUTUTATA(.*?)TOTOTUTUTATA(.*?)TOTOTUTUTATA(.*?)$/) {
- $line = "$1<network_link${2}bandwidth=\"$3\"$4";
- }
+ if ($fromversion == 0)
+ {
+ while ($line =~ m|^(.*?)<cpu(.*?)power="([^"]*)"(.*)$|)
+ {
+ $line = "$1TOTOTUTUTATA${2}TOTOTUTUTATA".($3*1000000)."TOTOTUTUTATA${4}";
+ }
+ while ($line =~ /^(.*?)TOTOTUTUTATA(.*?)TOTOTUTUTATA(.*?)TOTOTUTUTATA(.*)$/)
+ {
+ $line = "$1<cpu${2}power=\"$3\"$4";
+ }
+ while ($line =~ m|^(.*?)<network_link(.*?)bandwidth="([^"]*)"(.*?)$|)
+ {
+ $line = "$1TOTOTUTUTATA${2}TOTOTUTUTATA".($3*1000000)."TOTOTUTUTATA${4}";
+ }
+ while ($line =~ /^(.*?)TOTOTUTUTATA(.*?)TOTOTUTUTATA(.*?)TOTOTUTUTATA(.*?)$/)
+ {
+ $line = "$1<network_link${2}bandwidth=\"$3\"$4";
+ }