1.1 --- a/Admin/isa-migrate	Thu Jun 16 10:22:50 2005 +0200
     1.2 +++ b/Admin/isa-migrate	Thu Jun 16 10:30:26 2005 +0200
     1.3 @@ -68,7 +68,13 @@
     1.4                      }
     1.5                      $thyheader .=  "begin";
     1.6                      # do replacement here
     1.7 -                    print "$file:\n$thyheader\n\n";
     1.8 +                    if ($diag) {
     1.9 +                        print "$file:\n$thyheader\n\n";
    1.10 +                    } else {
    1.11 +                        open(OSTREAM, ">$file") or die("error opening $file");
    1.12 +                        print OSTREAM "$prelude$thyheader$postlude";
    1.13 +                        close(OSTREAM);
    1.14 +                    }
    1.15                  }
    1.16              }
    1.17          }
    1.18 @@ -114,7 +120,7 @@
    1.19      my ($basename, $dirname, $ext) = fileparse($file, @suffices);
    1.20      #~ print "$file\n";
    1.21      if ($ext) {
    1.22 -        open ISTREAM, $file or die("error opening $file");
    1.23 +        open(ISTREAM, $file) or die("error opening $file");
    1.24          my @content = <ISTREAM>;
    1.25          close ISTREAM;
    1.26          if ($backupext) {