perl.h: Add comment, reorder conditional branches

[perl5.git] / ext / Fcntl / Fcntl.pm

diff --git a/ext/Fcntl/Fcntl.pm b/ext/Fcntl/Fcntl.pm
index 4aede8c..fa5f393 100644 (file)
--- a/ext/Fcntl/Fcntl.pm
+++ b/ext/Fcntl/Fcntl.pm
@@ -56,12 +56,12 @@ See L<perlfunc/stat> about the S_I* constants.
 =cut
 
 use strict;
-our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $AUTOLOAD);
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
 
 require Exporter;
 require XSLoader;
 @ISA = qw(Exporter);
-$VERSION = '1.09';
+$VERSION = '1.13';
 
 XSLoader::load();
 
@@ -169,31 +169,25 @@ XSLoader::load();
        DN_MULTISHOT
        DN_RENAME
        F_GETLEASE
+       F_GETPIPE_SZ
        F_GETSIG
        F_NOTIFY
        F_SETLEASE
+       F_SETPIPE_SZ
        F_SETSIG
        LOCK_MAND
        LOCK_READ
        LOCK_RW
        LOCK_WRITE
+        O_ALT_IO
+        O_EVTONLY
        O_IGNORE_CTTY
        O_NOATIME
        O_NOLINK
+        O_NOSIGPIPE
        O_NOTRANS
+        O_SYMLINK
+        O_TTY_INIT
 ), map {@{$_}} values %EXPORT_TAGS);
 
-sub AUTOLOAD {
-    (my $constname = $AUTOLOAD) =~ s/.*:://;
-    die "&Fcntl::constant not defined" if $constname eq 'constant';
-    my ($error, $val) = constant($constname);
-    if ($error) {
-        my (undef,$file,$line) = caller;
-        die "$error at $file line $line.\n";
-    }
-    no strict 'refs';
-    *$AUTOLOAD = sub { $val };
-    goto &$AUTOLOAD;
-}
-
 1;