3 open(I, "Makefile.subs.pl");
6 foreach my $i (@ARGV) {
11 # start replacement here
12 last if /common subroutines -- DO NOT EDIT/;
15 print O "# common subroutines -- DO NOT EDIT.\n";
16 print O "# They are imported from the Makefile.subs.pl file\n";
19 rename("$i.new", "$i");