--- 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(@_); }