diff options
Diffstat (limited to 'openssl/util/perlpath.pl')
-rwxr-xr-x | openssl/util/perlpath.pl | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/openssl/util/perlpath.pl b/openssl/util/perlpath.pl new file mode 100755 index 0000000..a1f236b --- /dev/null +++ b/openssl/util/perlpath.pl @@ -0,0 +1,35 @@ +#!/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"; + } |