Fcntl.xs: F_[GS]ETOWN were in wrong case branch

private-msgid: <199701251510.RAA05142@alpha.hut.fi>

diff --git a/ext/Fcntl/Fcntl.pm b/ext/Fcntl/Fcntl.pm
index d9e36943d55184fbca077a9a8484ef0f9d4e704c..678b7fd8970abc70cd50ebf9045415c34e63880e 100644 (file)
--- a/ext/Fcntl/Fcntl.pm
+++ b/ext/Fcntl/Fcntl.pm
@@ -39,7 +39,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $AUTOLOAD);
 require Exporter;
 require DynaLoader;
 @ISA = qw(Exporter DynaLoader);
-$VERSION = "1.02";
+$VERSION = "1.03";
 # Items to export into callers namespace by default
 # (move infrequently used names to @EXPORT_OK below)
 @EXPORT =

diff --git a/ext/Fcntl/Fcntl.xs b/ext/Fcntl/Fcntl.xs
index 4ecdf91e9cf01d3c113ddb0637dc529c20b25ef1..a94864332e249ed0ced9c9850c40c1089e37e3ff 100644 (file)
--- a/ext/Fcntl/Fcntl.xs
+++ b/ext/Fcntl/Fcntl.xs
@@ -56,6 +56,12 @@ int arg;
                return F_GETLK;
 #else
                goto not_there;
+#endif
+           if (strEQ(name, "F_GETOWN"))
+#ifdef F_GETOWN
+               return F_GETOWN;
+#else
+               goto not_there;
 #endif
            if (strEQ(name, "F_SETFD"))
 #ifdef F_SETFD
@@ -86,6 +92,12 @@ int arg;
                return F_SETLKW;
 #else
                goto not_there;
+#endif
+           if (strEQ(name, "F_SETOWN"))
+#ifdef F_SETOWN
+               return F_SETOWN;
+#else
+               goto not_there;
 #endif
            if (strEQ(name, "F_RDLCK"))
 #ifdef F_RDLCK
@@ -249,18 +261,6 @@ int arg;
                return O_SYNC;
 #else
                goto not_there;
-#endif
-           if (strEQ(name, "F_SETOWN"))
-#ifdef F_SETOWN
-               return F_SETOWN;
-#else
-               goto not_there;
-#endif
-           if (strEQ(name, "F_GETOWN"))
-#ifdef F_GETOWN
-               return F_GETOWN;
-#else
-               goto not_there;
 #endif
            if (strEQ(name, "O_DEFER"))
 #ifdef O_DEFER