Blob Blame History Raw
--- lib/perl5i/0.pm
+++ lib/perl5i/0.pm
@@ -145,12 +145,12 @@ sub load_in_caller {
 
 # 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(@_);
 }
 
--- lib/perl5i/1.pm
+++ lib/perl5i/1.pm
@@ -134,12 +134,12 @@ sub load_in_caller {
 
 # 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(@_);
 }