Subject: | [PATCH] Fix for 5.17.5-to-be |
This patch will make File::Util work in perl 5.17.5. See
<https://rt.perl.org/rt3/Ticket/Display.html?id=115030>.
Subject: | open_b44eP6Wa.txt |
diff -rup File-Util-3.27-ZobwW3/Util.pm File-Util-3.27-iKXqD7/Util.pm
--- File-Util-3.27-ZobwW3/Util.pm 2008-12-06 11:16:05.000000000 -0800
+++ File-Util-3.27-iKXqD7/Util.pm 2012-09-27 20:28:56.000000000 -0700
@@ -1151,7 +1151,7 @@ sub flock_rules {
my($this) = shift(@_);
my(@rules) = myargs(@_);
- return @ONLOCKFAIL unless defined scalar @rules;
+ return @ONLOCKFAIL unless scalar @rules;
my(%valid) = qw/
NOBLOCKEX NOBLOCKEX