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

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