change#1889 mistakenly removed F_SETLK
Gurusamy Sarathy [Wed, 7 Jul 1999 18:47:03 +0000 (18:47 +0000)]
p4raw-link: @1889 on //depot/perl: 5ff3f7a4e03a6b103d9e628865398e498e9a7968

p4raw-id: //depot/perl@3654

ext/Fcntl/Fcntl.xs

index a8e0e8a..2446ab7 100644 (file)
@@ -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;