diff options
| author | Doug MacEachern <dougm@covalent.net> | 2000-02-29 13:24:00 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-01 06:02:12 +0000 |
| commit | bffeec7dc2c30e6d3158fe84d27299b24e02c36c (patch) | |
| tree | 2c19e4dfe1917f4ef0386dd79474198acf2317b8 /ext/Fcntl | |
| parent | ca5c0aed605860b7fda1e0ec7c8628ef8532d88d (diff) | |
| download | perl-bffeec7dc2c30e6d3158fe84d27299b24e02c36c.tar.gz | |
Fcntl de-cut-and-pasto.
To: perl5-porters@perl.org
Subject: [PATCH v5.5.660] Fcntl.pm
Message-ID: <Pine.LNX.4.10.10002292120200.382-100000@mojo.itixs.com>
p4raw-id: //depot/cfgperl@5393
Diffstat (limited to 'ext/Fcntl')
| -rw-r--r-- | ext/Fcntl/Fcntl.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Fcntl/Fcntl.pm b/ext/Fcntl/Fcntl.pm index 8ce761c50b..171538e583 100644 --- a/ext/Fcntl/Fcntl.pm +++ b/ext/Fcntl/Fcntl.pm @@ -192,8 +192,8 @@ sub S_ISSOCK { ( $_[0] & _S_IFMT() ) == S_IFSOCK() } sub S_ISBLK { ( $_[0] & _S_IFMT() ) == S_IFBLK() } sub S_ISCHR { ( $_[0] & _S_IFMT() ) == S_IFCHR() } sub S_ISFIFO { ( $_[0] & _S_IFMT() ) == S_IFIFO() } -sub S_ISWHT { ( $_[0] & _S_IFMT() ) == S_ISWHT() } -sub S_ISENFMT { ( $_[0] & _S_IFMT() ) == S_ISENFMT() } +sub S_ISWHT { ( $_[0] & _S_IFMT() ) == S_IFWHT() } +sub S_ISENFMT { ( $_[0] & _S_IFMT() ) == S_IFENFMT() } sub AUTOLOAD { (my $constname = $AUTOLOAD) =~ s/.*:://; |