diff --git a/lib/perl5i/0.pm b/lib/perl5i/0.pm index 291872c..e329e7d 100644 --- a/lib/perl5i/0.pm +++ b/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(@_); } diff --git a/lib/perl5i/1.pm b/lib/perl5i/1.pm index 0166256..ff628a0 100644 --- a/lib/perl5i/1.pm +++ b/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(@_); }