--- a/Admin/isa-migrate Thu Jun 16 10:22:50 2005 +0200
+++ b/Admin/isa-migrate Thu Jun 16 10:30:26 2005 +0200
@@ -68,7 +68,13 @@
}
$thyheader .= "begin";
# do replacement here
- print "$file:\n$thyheader\n\n";
+ if ($diag) {
+ print "$file:\n$thyheader\n\n";
+ } else {
+ open(OSTREAM, ">$file") or die("error opening $file");
+ print OSTREAM "$prelude$thyheader$postlude";
+ close(OSTREAM);
+ }
}
}
}
@@ -114,7 +120,7 @@
my ($basename, $dirname, $ext) = fileparse($file, @suffices);
#~ print "$file\n";
if ($ext) {
- open ISTREAM, $file or die("error opening $file");
+ open(ISTREAM, $file) or die("error opening $file");
my @content = <ISTREAM>;
close ISTREAM;
if ($backupext) {