fix stat() and lstat() calls for perl 5.23.3+ (evalEmpire#291)

eserte · Mar 22, 2016 · 26a254d · 26a254d
1 parent 572f872
commit 26a254d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/perl5i/2.pm b/lib/perl5i/2.pm
@@ -188,12 +188,12 @@ sub perl5i_die {
 
 # File::stat does not play nice in list context
 sub stat {
-    return CORE::stat(@_) if wantarray;
+    return CORE::stat($_[0]) if wantarray;
     return File::stat::stat(@_);
 }
 
 sub lstat {
-    return CORE::lstat(@_) if wantarray;
+    return CORE::lstat($_[0]) if wantarray;
     return File::stat::lstat(@_);
 }