isa-migrate ++
authorhaftmann
Thu Jun 16 10:30:26 2005 +0200 (2005-06-16)
changeset 164064f393b8f84b7
parent 16405 0a2a6732c685
child 16407 e3c3405613c5
isa-migrate ++
Admin/isa-migrate
     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) {