diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-06 15:04:17 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-06 15:04:17 +0000 |
| commit | 69dcf70cb27ded45873eb396cabbcbd82a21a2c8 (patch) | |
| tree | d2d98cd7761d5c6d976ef213d2b12a20be2b527b /ext/Fcntl | |
| parent | 85aff5773f2412a54180cc35f86370c56b65bf77 (diff) | |
| download | perl-69dcf70cb27ded45873eb396cabbcbd82a21a2c8.tar.gz | |
Some more Chip patches (tweaked to match _5x):
Subject: [PATCH] Fix empty BLOCK
Date: Wed, 4 Feb 1998 16:52:28 -0500 (EST)
Subject: [PATCH] fix (\@@) proto
Date: Thu, 5 Feb 1998 10:24:29 -0500 (EST)
Subject: [PATCH] Cope with lack of args in Fcntl::AUTOLOAD
Date: Thu, 5 Feb 1998 21:26:55 -0500 (EST)
Subject: [PATCH] Don't fold string comparison under C<use locale>
Date: Thu, 5 Feb 1998 21:46:25 -0500 (EST)
p4raw-id: //depot/perl@463
Diffstat (limited to 'ext/Fcntl')
| -rw-r--r-- | ext/Fcntl/Fcntl.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Fcntl/Fcntl.pm b/ext/Fcntl/Fcntl.pm index 6214323c31..74de3dfc65 100644 --- a/ext/Fcntl/Fcntl.pm +++ b/ext/Fcntl/Fcntl.pm @@ -78,7 +78,7 @@ $VERSION = "1.03"; sub AUTOLOAD { my($constname); ($constname = $AUTOLOAD) =~ s/.*:://; - my $val = constant($constname, @_ ? $_[0] : 0); + my $val = constant($constname, (@_ && (caller(0))[4]) ? $_[0] : 0); if ($! != 0) { if ($! =~ /Invalid/) { $AutoLoader::AUTOLOAD = $AUTOLOAD; |