Item14368: Use of shift is ambiguous without parenthesis.

Fails on perl 5.8.9.
foswiki · May 23, 2017 · 78f56bd · 78f56bd
1 parent 91f82fd
commit 78f56bd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/RCSStoreContrib/lib/Foswiki/Store/Rcs/RcsLiteHandler.pm b/RCSStoreContrib/lib/Foswiki/Store/Rcs/RcsLiteHandler.pm
@@ -715,7 +715,7 @@ sub _patch {
     local $SIG{__WARN__} = sub {
         print STDERR
 "WARNING: Potentially corrupt RCS history $this->{file} at revision $rev: "
-          . shift . "\n";
+          . shift(@_) . "\n";
     };
 
     my $adj       = 0;