change#1889 mistakenly removed F_SETLK

p4raw-link: @1889 on //depot/perl: 5ff3f7a4e03a6b103d9e628865398e498e9a7968

p4raw-id: //depot/perl@3654

diff --git a/ext/Fcntl/Fcntl.xs b/ext/Fcntl/Fcntl.xs
index a8e0e8a..2446ab7 100644 (file)
--- a/ext/Fcntl/Fcntl.xs
+++ b/ext/Fcntl/Fcntl.xs
@@ -108,6 +108,12 @@ constant(char *name, int arg)
 #else
                goto not_there;
 #endif
+           if (strEQ(name, "F_SETLK"))
+#ifdef F_SETLK
+               return F_SETLK;
+#else
+               goto not_there;
+#endif
            if (strEQ(name, "F_SETLK64"))
 #ifdef F_SETLK64
                return F_SETLK64;