diff options
author | Rob Austein <sra@hactrn.net> | 2007-06-07 02:37:32 +0000 |
---|---|---|
committer | Rob Austein <sra@hactrn.net> | 2007-06-07 02:37:32 +0000 |
commit | 5dadf34209c288b8fffba1016e6a3c9446381153 (patch) | |
tree | 2ec36232cafd0da10fffda780f08a43c97d70aad /openssl/trunk/util/perlpath.pl | |
parent | 6fcf9830cfea5236faf42cc3437ed4bed06c16de (diff) |
Replace hacked OpenSSL code with OpenSSL 0.9.8e distribution.
svn path=/openssl/Makefile; revision=659
Diffstat (limited to 'openssl/trunk/util/perlpath.pl')
-rwxr-xr-x | openssl/trunk/util/perlpath.pl | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/openssl/trunk/util/perlpath.pl b/openssl/trunk/util/perlpath.pl deleted file mode 100755 index a1f236bd..00000000 --- a/openssl/trunk/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"; - } |