Update my email address in perl.c

[p5sagit/p5-mst-13.2.git] / lib / File / stat.pm

diff --git a/lib/File/stat.pm b/lib/File/stat.pm
index 0c479d2..af75bef 100644 (file)
--- a/lib/File/stat.pm
+++ b/lib/File/stat.pm
@@ -53,7 +53,7 @@ sub stat ($) {
                local $!;
                no strict 'refs';
                require Symbol;
-               $fh = \*{Symbol::qualify($arg)};
+               $fh = \*{ Symbol::qualify( $arg, caller() )};
                return unless defined fileno $fh;
        }
     return populate(CORE::stat $fh);