| #!/usr/local/bin/perl |
| # |
| # modify the '#!/usr/local/bin/perl' |
| # line in all scripts that rely on perl. |
| # |
| |
| require "find.pl"; |
| |
| $#ARGV == 0 || print STDERR "usage: perlpath newpath (eg /usr/bin)\n"; |
| &find("."); |
| |
| sub wanted |
| { |
| return unless /\.pl$/ || /^[Cc]onfigur/; |
| |
| open(IN,"<$_") || die "unable to open $dir/$_:$!\n"; |
| @a=<IN>; |
| close(IN); |
| |
| if (-d $ARGV[0]) { |
| $a[0]="#!$ARGV[0]/perl\n"; |
| } |
| else { |
| $a[0]="#!$ARGV[0]\n"; |
| } |
| |
| # Playing it safe... |
| $new="$_.new"; |
| open(OUT,">$new") || die "unable to open $dir/$new:$!\n"; |
| print OUT @a; |
| close(OUT); |
| |
| rename($new,$_) || die "unable to rename $dir/$new:$!\n"; |
| chmod(0755,$_) || die "unable to chmod $dir/$new:$!\n"; |
| } |