# | Line 6 | Line 6 | |
---|---|---|
6 | ||
7 | @manglenames=qw(_d _pic _PIC _Insure); | |
8 | open ( INFILE, "<$ARGV[0]" ); | |
9 | < | open (OUTFILE, ">>$ARGV[0]_tmp"); |
9 | > | open (OUTFILE, ">$ARGV[0]_tmp"); |
10 | while ( <INFILE> ) { | |
11 | print OUTFILE $_; | |
12 | foreach $mang ( @manglenames ) { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |