From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 13 May 1998 09:51:43 +0000 (+0000)
Subject: [win32] merge change#681 from maintbranch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=36c2d1652e2db3216e1143788ffc974008de20fa;p=p5sagit%2Fp5-mst-13.2.git

[win32] merge change#681 from maintbranch

p4raw-link: @681 on //depot/maint-5.004/perl: ca1e21bae662c1cebe4e218dc45cb163ecf67263

p4raw-id: //depot/win32/perl@927
---

diff --git a/ext/Fcntl/Fcntl.pm b/ext/Fcntl/Fcntl.pm
index 74de3df..ab19670 100644
--- a/ext/Fcntl/Fcntl.pm
+++ b/ext/Fcntl/Fcntl.pm
@@ -76,9 +76,8 @@ $VERSION = "1.03";
 );
 
 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;
@@ -90,7 +89,7 @@ sub AUTOLOAD {
 ";
 	}
     }
-    eval "sub $AUTOLOAD { $val }";
+    *$AUTOLOAD = sub { $val };
     goto &$AUTOLOAD;
 }