util/perlpath.pl

   1 #!/usr/local/bin/perl
   2 #
   3 # modify the '#!/usr/local/bin/perl'
   4 # line in all scripts that rely on perl.
   5 #
   6
   7 require "find.pl";
   8
   9 $#ARGV == 0 || print STDERR "usage: perlpath newpath  (eg /usr/bin)\n";
  10 &find(".");
  11
  12 sub wanted
  13         {
  14         return unless /\.pl$/ || /^[Cc]onfigur/;
  15
  16         open(IN,"<$_") || die "unable to open $dir/$_:$!\n";
  17         @a=<IN>;
  18         close(IN);
  19
  20         $a[0]="#!$ARGV[0]/perl\n";
  21
  22         # Playing it safe...
  23         $new="$_.new";
  24         open(OUT,">$new") || die "unable to open $dir/$new:$!\n";
  25         print OUT @a;
  26         close(OUT);
  27
  28         rename($new,$_) || die "unable to rename $dir/$new:$!\n";
  29         chmod(0755,$_) || die "unable to chmod $dir/$new:$!\n";
  30         }