also changes to use perl fns, instead of shell
$lines->[$i] = "";
- `/bin/mv -f $fname $fname.misaved` && die "failed to rename $fname";
+ my $mname = $fname . ".misaved";
+
+ unlink($mname);
+ rename($fname, $mname) || die "failed to rename $fname";
save_lines($fname, $lines);
my $out = test_compile($fname);
print "$fname: not removing system include $line\n";
} else {
print "$fname: removing $line\n";
+ unlink($mname);
return;
}
} else {
}
$lines->[$i] = $line;
- `/bin/mv -f $fname.misaved $fname` && die "failed to restore $fname";
+ rename($mname, $fname) || die "failed to restore $fname";
}
sub process_file($)