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