From: Doug MacEachern <dougm@covalent.net>
Date: Tue, 29 Feb 2000 21:24:00 +0000 (-0800)
Subject: Fcntl de-cut-and-pasto.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1a16747c2ea1992d512aaa8082479f040e3e0d63;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/ext/Fcntl/Fcntl.pm b/ext/Fcntl/Fcntl.pm
index 8ce761c..171538e 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/.*:://;