3 # modify the '#!/usr/local/bin/perl'
4 # line in all scripts that rely on perl.
9 $#ARGV == 0 || print STDERR "usage: perlpath newpath (eg /usr/bin)\n";
14 return unless /\.pl$/ || /^[Cc]onfigur/;
16 open(IN,"<$_") || die "unable to open $dir/$_:$!\n";
20 $a[0]="#!$ARGV[0]/perl\n";
24 open(OUT,">$new") || die "unable to open $dir/$new:$!\n";
28 rename($new,$_) || die "unable to rename $dir/$new:$!\n";
29 chmod(0755,$_) || die "unable to chmod $dir/$new:$!\n";