Blame SOURCES/openssl-fips-0.9.8e-perlfind.patch

c4366c
diff -up openssl-fips-0.9.8e/util/perlpath.pl.perlfind openssl-fips-0.9.8e/util/perlpath.pl
c4366c
--- openssl-fips-0.9.8e/util/perlpath.pl.perlfind	2013-07-17 11:47:59.977820958 +0200
c4366c
+++ openssl-fips-0.9.8e/util/perlpath.pl	2013-07-17 12:12:37.997614805 +0200
c4366c
@@ -4,10 +4,10 @@
c4366c
 # line in all scripts that rely on perl.
c4366c
 #
c4366c
 
c4366c
-require "find.pl";
c4366c
+use File::Find;
c4366c
 
c4366c
 $#ARGV == 0 || print STDERR "usage: perlpath newpath  (eg /usr/bin)\n";
c4366c
-&find(".");
c4366c
+find(\&wanted, ".");
c4366c
 
c4366c
 sub wanted
c4366c
 	{