This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fcntl de-cut-and-pasto.
authorDoug MacEachern <dougm@covalent.net>
Tue, 29 Feb 2000 21:24:00 +0000 (13:24 -0800)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 1 Mar 2000 06:02:12 +0000 (06:02 +0000)
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

ext/Fcntl/Fcntl.pm

index 8ce761c..171538e 100644 (file)
@@ -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/.*:://;