isa-migrate ++

--- 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) {