diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-12-19 21:34:42 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-12-19 21:34:42 +0000 |
| commit | 7ea3cd407b6ec2a3e424bdfbc486b6e01d6d28bd (patch) | |
| tree | 07e09d8ad20b5ba1bc0766d43bd3fee8319ccca0 /ext/Fcntl/Fcntl.pm | |
| parent | 9ad0568745f6fe01e5fc04f7d23be449d0c377a4 (diff) | |
| download | perl-7ea3cd407b6ec2a3e424bdfbc486b6e01d6d28bd.tar.gz | |
Integrate mainline.
p4raw-id: //depot/perlio@8202
Diffstat (limited to 'ext/Fcntl/Fcntl.pm')
| -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 92103a1eaf..c68dda1c2f 100644 --- a/ext/Fcntl/Fcntl.pm +++ b/ext/Fcntl/Fcntl.pm @@ -201,7 +201,7 @@ sub S_ISENFMT { ( $_[0] & _S_IFMT() ) == S_IFENFMT() } sub AUTOLOAD { (my $constname = $AUTOLOAD) =~ s/.*:://; - my $val = constant($constname, 0); + my $val = constant($constname); if ($! != 0) { if ($! =~ /Invalid/ || $!{EINVAL}) { $AutoLoader::AUTOLOAD = $AUTOLOAD; |