From eb9264fc2ef786e8c4e3d430834b9b9e9e0b9c0a Mon Sep 17 00:00:00 2001
From: Rob Austein <sra@hactrn.net>
Date: Mon, 9 Oct 2006 16:00:16 +0000
Subject: OpenSSL 0.9.8d base code import

svn path=/openssl/vendor/0.9.8d/CHANGES; revision=373
---
 openssl/vendor/0.9.8d/util/perlpath.pl | 35 ++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100755 openssl/vendor/0.9.8d/util/perlpath.pl

(limited to 'openssl/vendor/0.9.8d/util/perlpath.pl')

diff --git a/openssl/vendor/0.9.8d/util/perlpath.pl b/openssl/vendor/0.9.8d/util/perlpath.pl
new file mode 100755
index 00000000..a1f236bd
--- /dev/null
+++ b/openssl/vendor/0.9.8d/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";
+	}
-- 
cgit v1.2.3