Updated Maintainers.pl to note that p5p/blead is responsible for IO

[p5sagit/p5-mst-13.2.git] / ext / Fcntl / Fcntl.pm

diff --git a/ext/Fcntl/Fcntl.pm b/ext/Fcntl/Fcntl.pm
index 067c061..83edeb6 100644 (file)
--- a/ext/Fcntl/Fcntl.pm
+++ b/ext/Fcntl/Fcntl.pm
@@ -55,13 +55,14 @@ See L<perlfunc/stat> about the S_I* constants.
 
 =cut
 
+use strict;
 our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $AUTOLOAD);
 
 require Exporter;
 use XSLoader ();
 @ISA = qw(Exporter);
 BEGIN {
-  $VERSION = "1.05";
+  $VERSION = "1.06";
 }
 
 # Items to export into callers namespace by default
@@ -214,18 +215,18 @@ BEGIN {
   XSLoader::load 'Fcntl', $VERSION;
 }
 
-sub S_IFMT  { @_ ? ( $_[0] & _S_IFMT ) : _S_IFMT  }
+sub S_IFMT  { @_ ? ( $_[0] & _S_IFMT() ) : _S_IFMT()  }
 sub S_IMODE { $_[0] & 07777 }
 
-sub S_ISREG    { ( $_[0] & _S_IFMT ) == S_IFREG   }
-sub S_ISDIR    { ( $_[0] & _S_IFMT ) == S_IFDIR   }
-sub S_ISLNK    { ( $_[0] & _S_IFMT ) == S_IFLNK   }
-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_IFWHT   }
-sub S_ISENFMT  { ( $_[0] & _S_IFMT ) == S_IFENFMT }
+sub S_ISREG    { ( $_[0] & _S_IFMT() ) == S_IFREG()   }
+sub S_ISDIR    { ( $_[0] & _S_IFMT() ) == S_IFDIR()   }
+sub S_ISLNK    { ( $_[0] & _S_IFMT() ) == S_IFLNK()   }
+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_IFWHT()   }
+sub S_ISENFMT  { ( $_[0] & _S_IFMT() ) == S_IFENFMT() }
 
 sub AUTOLOAD {
     (my $constname = $AUTOLOAD) =~ s/.*:://;
@@ -235,6 +236,7 @@ sub AUTOLOAD {
         my (undef,$file,$line) = caller;
         die "$error at $file line $line.\n";
     }
+    no strict 'refs';
     *$AUTOLOAD = sub { $val };
     goto &$AUTOLOAD;
 }