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
svn path=/head/; revision=383884
2015-04-12 21:05:57 +00:00 · 2015-04-12 21:05:57 +00:00 · 75e4d209d1 · 2021-03-31 03:12:20 +00:00
commit 75e4d209d1
parent c2482ff717
1 changed files with 20 additions and 0 deletions
--- a/net/spread/files/patch-buildtools_fixpaths
+++ b/net/spread/files/patch-buildtools_fixpaths
@ -0,0 +1,20 @@
+--- 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");
+ }
+