This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fcntl.xs: F_[GS]ETOWN were in wrong case branch
[perl5.git] / ext / Fcntl / Fcntl.xs
index 4ecdf91..a948643 100644 (file)
@@ -57,6 +57,12 @@ int arg;
 #else
                goto not_there;
 #endif
 #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
                return F_SETFD;
            if (strEQ(name, "F_SETFD"))
 #ifdef F_SETFD
                return F_SETFD;
@@ -87,6 +93,12 @@ int arg;
 #else
                goto not_there;
 #endif
 #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
                return F_RDLCK;
            if (strEQ(name, "F_RDLCK"))
 #ifdef F_RDLCK
                return F_RDLCK;
@@ -250,18 +262,6 @@ int arg;
 #else
                goto not_there;
 #endif
 #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
                return O_DEFER;
            if (strEQ(name, "O_DEFER"))
 #ifdef O_DEFER
                return O_DEFER;