irix-hack.pl

   1 #!/usr/bin/perl
   2
   3 $file = shift(@ARGV);
   4
   5 print "Fixing $file\n";
   6
   7 open(IN, "<$file") || die "cannot open $file for reading\n";
   8 open(OUT, ">$file.new") || die "cannot open $file.new for writting\n";
   9
  10 while (<IN>) {
  11     s/^AR = ar$/AR = CC -ar/;
  12     s/\$\(AR\) cru /\$\(AR\) -o /;
  13     print OUT $_;
  14 }
  15
  16 rename("$file.new", "$file") || die "cannot rename $file.new to $file\n";