aboutsummaryrefslogtreecommitdiff
path: root/openssl/vendor/0.9.8d/util/perlpath.pl
diff options
context:
space:
mode:
authorRob Austein <sra@hactrn.net>2006-10-09 16:22:20 +0000
committerRob Austein <sra@hactrn.net>2006-10-09 16:22:20 +0000
commit084adb601f2d375395c6cdcedf8af91f1065fe4e (patch)
treefcc9ae9597924b12b6ff7b5b7dbfb2b65f20fb29 /openssl/vendor/0.9.8d/util/perlpath.pl
parenteb9264fc2ef786e8c4e3d430834b9b9e9e0b9c0a (diff)
Feh, wrong vendor branch merge proceedure, clean up before trying again.
svn path=/openssl/vendor/0.9.8d; revision=374
Diffstat (limited to 'openssl/vendor/0.9.8d/util/perlpath.pl')
-rwxr-xr-xopenssl/vendor/0.9.8d/util/perlpath.pl35
1 files changed, 0 insertions, 35 deletions
diff --git a/openssl/vendor/0.9.8d/util/perlpath.pl b/openssl/vendor/0.9.8d/util/perlpath.pl
deleted file mode 100755
index a1f236bd..00000000
--- a/openssl/vendor/0.9.8d/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";
- }