add: execute openssl fetcher to fetch openssl 1.0.1j

[cassiopeia.git] / lib / openssl / util / perlpath.pl

diff --git a/lib/openssl/util/perlpath.pl b/lib/openssl/util/perlpath.pl
new file mode 100755 (executable)
index 0000000..a1f236b
--- /dev/null
+++ b/lib/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";
+       }