Blame SOURCES/openssl-1.0.1c-perlfind.patch

e62613
diff -up openssl-1.0.1c/util/perlpath.pl.perlfind openssl-1.0.1c/util/perlpath.pl
e62613
--- openssl-1.0.1c/util/perlpath.pl.perlfind	2012-07-11 22:57:33.000000000 +0200
e62613
+++ openssl-1.0.1c/util/perlpath.pl	2012-07-12 00:31:12.102156275 +0200
e62613
@@ -4,10 +4,10 @@
e62613
 # line in all scripts that rely on perl.
e62613
 #
e62613
 
e62613
-require "find.pl";
e62613
+use File::Find;
e62613
 
e62613
 $#ARGV == 0 || print STDERR "usage: perlpath newpath  (eg /usr/bin)\n";
e62613
-&find(".");
e62613
+find(\&wanted, ".");
e62613
 
e62613
 sub wanted
e62613
 	{