155714Skris#!/usr/local/bin/perl 255714Skris# 355714Skris# modify the '#!/usr/local/bin/perl' 455714Skris# line in all scripts that rely on perl. 555714Skris# 655714Skris 755714Skrisrequire "find.pl"; 855714Skris 955714Skris$#ARGV == 0 || print STDERR "usage: perlpath newpath (eg /usr/bin)\n"; 1055714Skris&find("."); 1155714Skris 1255714Skrissub wanted 1355714Skris { 1455714Skris return unless /\.pl$/ || /^[Cc]onfigur/; 1555714Skris 1655714Skris open(IN,"<$_") || die "unable to open $dir/$_:$!\n"; 1755714Skris @a=<IN>; 1855714Skris close(IN); 1955714Skris 2055714Skris if (-d $ARGV[0]) { 2155714Skris $a[0]="#!$ARGV[0]/perl\n"; 2255714Skris } 2355714Skris else { 2455714Skris $a[0]="#!$ARGV[0]\n"; 2555714Skris } 2655714Skris 2755714Skris # Playing it safe... 2855714Skris $new="$_.new"; 2955714Skris open(OUT,">$new") || die "unable to open $dir/$new:$!\n"; 3055714Skris print OUT @a; 3155714Skris close(OUT); 3255714Skris 3355714Skris rename($new,$_) || die "unable to rename $dir/$new:$!\n"; 3455714Skris chmod(0755,$_) || die "unable to chmod $dir/$new:$!\n"; 3555714Skris } 36