diff options
Diffstat (limited to 'lib/libcrypto/util/perlpath.pl')
-rw-r--r-- | lib/libcrypto/util/perlpath.pl | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/lib/libcrypto/util/perlpath.pl b/lib/libcrypto/util/perlpath.pl deleted file mode 100644 index a1f236bd984..00000000000 --- a/lib/libcrypto/util/perlpath.pl +++ /dev/null @@ -1,35 +0,0 @@ -#!/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"; - } |