You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
677 B
35 lines
677 B
#!/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"; |
|
}
|
|
|