From 2bb4d4ac7a2751306ac55c3ce2fe3af26d8ef965 Mon Sep 17 00:00:00 2001
From: afresh1 <>
Date: Thu, 17 Apr 2014 19:20:52 +0000
Subject: Remove unused ssl utils

This code is the reason perl has a name as a write only language.

ok deraadt miod
---
 src/lib/libcrypto/util/perlpath.pl | 35 -----------------------------------
 1 file changed, 35 deletions(-)
 delete mode 100644 src/lib/libcrypto/util/perlpath.pl

(limited to 'src/lib/libcrypto/util/perlpath.pl')

diff --git a/src/lib/libcrypto/util/perlpath.pl b/src/lib/libcrypto/util/perlpath.pl
deleted file mode 100644
index a1f236bd98..0000000000
--- a/src/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";
-	}
-- 
cgit v1.2.3-55-g6feb