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 | 1a16747c2ea1992d512aaa8082479f040e3e0d63 (patch) | |
| tree | 2c19e4dfe1917f4ef0386dd79474198acf2317b8 /ext/Fcntl | |
| parent | 282f2f4cb1c4ceabdaa0bc32b022e560d95482da (diff) | |
| download | perl-1a16747c2ea1992d512aaa8082479f040e3e0d63.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/.*:://; |