develooper Front page | perl.perl5.porters | Postings from February 2000

[PATCH v5.5.660] Fcntl.pm

From:
Doug MacEachern
Date:
February 29, 2000 21:27
Subject:
[PATCH v5.5.660] Fcntl.pm
Message ID:
Pine.LNX.4.10.10002292120200.382-100000@mojo.itixs.com
mod_perl-1.21_01-dev fails the modules/cgi test due to a bug in Fcntl.pm
all the modules are reloaded when the server starts, but Fcntl.pm fails to
reload because of this bug.
looks like a copy-n-pasto.

--- Fcntl.pm~   Tue Feb 22 12:17:28 2000
+++ Fcntl.pm    Tue Feb 29 19:00:46 2000
@@ -323,8 +323,8 @@
 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/.*:://;





nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About