- 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";
+ }