| 4 |
|
# Add additional targets to reflect mangled names of objects |
| 5 |
|
# |
| 6 |
|
|
| 7 |
< |
@manglenames=qw(_d _pic _PIC); |
| 7 |
> |
@manglenames=qw(_d _pic _PIC _Insure); |
| 8 |
|
open ( INFILE, "<$ARGV[0]" ); |
| 9 |
< |
open (OUTFILE, ">>$ARGV[0]"); |
| 9 |
> |
open (OUTFILE, ">>$ARGV[0]_tmp"); |
| 10 |
|
while ( <INFILE> ) { |
| 11 |
+ |
print OUTFILE $_; |
| 12 |
|
foreach $mang ( @manglenames ) { |
| 13 |
|
($out=$_)=~s/(.*)(.o :)/\1$mang\2/; |
| 14 |
|
print OUTFILE $out; |
| 15 |
|
} |
| 16 |
|
} |
| 17 |
|
close INFILE; |
| 18 |
+ |
close OUTFILE; |
| 19 |
+ |
use File::Copy; |
| 20 |
+ |
copy "$ARGV[0]_tmp", "$ARGV[0]"; |
