diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-10-18 15:04:32 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-10-18 15:04:32 +0200 |
| commit | fb59364be1e5fdc818e4e1b5eba83f65ccfeb189 (patch) | |
| tree | 6834137a7914b38c1399da382dfe8dde8a60e3a4 /ext/Fcntl/Fcntl.pm | |
| parent | df5a3819cf43fd65bb6db52619f7b36d3d11063f (diff) | |
| download | perl-fb59364be1e5fdc818e4e1b5eba83f65ccfeb189.tar.gz | |
Fix Fcntl::S_ISENFMT(), which could never have worked before.
S_ISENFMT() and S_ISWHT() were added in 2000 as part of commit ca6e1c26e8ac218f.
1a16747c2ea1992d (2 weeks later) intended to fix the copy/paste error in that
previous commit which would prevent either from working. It did fix S_ISWHT().
However, there was a second error in the definition of S_ISEMFMT() which was
never picked up - S_ENFMT(), not S_IFENFMT().
Diffstat (limited to 'ext/Fcntl/Fcntl.pm')
| -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 e173c34785..58017f0ce0 100644 --- a/ext/Fcntl/Fcntl.pm +++ b/ext/Fcntl/Fcntl.pm @@ -61,7 +61,7 @@ our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $AUTOLOAD); require Exporter; @ISA = qw(Exporter); BEGIN { - $VERSION = "1.07"; + $VERSION = '1.08'; } # Items to export into callers namespace by default @@ -226,7 +226,7 @@ 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_IFWHT() } -sub S_ISENFMT { ( $_[0] & _S_IFMT() ) == S_IFENFMT() } +sub S_ISENFMT { ( $_[0] & _S_IFMT() ) == S_ENFMT() } sub AUTOLOAD { (my $constname = $AUTOLOAD) =~ s/.*:://; |