ports/net/spread/files/patch-buildtools_fixpaths
Mathieu Arnold 75e4d209d1 Fix with Perl 5.21.1+
Can't use 'defined(@array)' (Maybe you should just omit the defined()?) at ./buildtools/fixpaths line 8.

With hat:	perl@
Sponsored by:	Absolight
2015-04-12 21:05:57 +00:00

20 lines
502 B
Text

--- buildtools/fixpaths.orig 2002-09-16 16:59:08 UTC
+++ buildtools/fixpaths
@@ -5,7 +5,7 @@
$usage = "Usage: $0 [-Dstring=replacement] [[infile] ...]\n";
-if (!defined(@ARGV)) { die ("$usage"); }
+if (!@ARGV) { die ("$usage"); }
# read in the command line and get some definitions
while ($_=$ARGV[0], /^-/) {
@@ -23,7 +23,7 @@ while ($_=$ARGV[0], /^-/) {
}
} # while parsing arguments
-if (!defined(%def)) {
+if (!%def) {
die ("$0: nothing to do - no substitutions listed!\n");
}