|
|
|
|
@ -336,3 +336,18 @@ Index: config
|
|
|
|
|
fi
|
|
|
|
|
else
|
|
|
|
|
echo "This system ($OUT) is not supported. See file INSTALL for details."
|
|
|
|
|
Index: util/perlpath.pl
|
|
|
|
|
--- util/perlpath.pl.orig 1999-03-10 20:57:05.000000000 +0100
|
|
|
|
|
+++ util/perlpath.pl 2012-06-06 18:23:32.000000000 +0200
|
|
|
|
|
@@ -4,7 +4,10 @@
|
|
|
|
|
# line in all scripts that rely on perl.
|
|
|
|
|
#
|
|
|
|
|
|
|
|
|
|
-require "find.pl";
|
|
|
|
|
+# find.pl emulation
|
|
|
|
|
+use File::Find ();
|
|
|
|
|
+*dir = *File::Find::dir;
|
|
|
|
|
+sub find { &File::Find::find(\&wanted, @_); }
|
|
|
|
|
|
|
|
|
|
$#ARGV == 0 || print STDERR "usage: perlpath newpath (eg /usr/bin)\n";
|
|
|
|
|
&find(".");
|
|
|
|
|
|