[win32] merge change#681 from maintbranch

[perl5.git] / ext / Fcntl / Fcntl.pm

diff --git a/ext/Fcntl/Fcntl.pm b/ext/Fcntl/Fcntl.pm
index 74de3df..ab19670 100644 (file)
--- a/ext/Fcntl/Fcntl.pm
+++ b/ext/Fcntl/Fcntl.pm
@@ -76,9 +76,8 @@ $VERSION = "1.03";
 );
 
 sub AUTOLOAD {
 );
 
 sub AUTOLOAD {

-    my($constname);
-    ($constname = $AUTOLOAD) =~ s/.*:://;
-    my $val = constant($constname, (@_ && (caller(0))[4]) ? $_[0] : 0);
+    (my $constname = $AUTOLOAD) =~ s/.*:://;
+    my $val = constant($constname, 0);

     if ($! != 0) {
        if ($! =~ /Invalid/) {
            $AutoLoader::AUTOLOAD = $AUTOLOAD;
     if ($! != 0) {
        if ($! =~ /Invalid/) {
            $AutoLoader::AUTOLOAD = $AUTOLOAD;


@@ -90,7 +89,7 @@ sub AUTOLOAD {
 ";
        }
     }
 ";
        }
     }

-    eval "sub $AUTOLOAD { $val }";
+    *$AUTOLOAD = sub { $val };

     goto &$AUTOLOAD;
 }
 
     goto &$AUTOLOAD;
 }