From d9fde92e0874aabf610d52680de462a0e0165d23 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 7 Jul 1999 18:47:03 +0000
Subject: [PATCH] change#1889 mistakenly removed F_SETLK

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

p4raw-id: //depot/perl@3654
---
 ext/Fcntl/Fcntl.xs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/ext/Fcntl/Fcntl.xs b/ext/Fcntl/Fcntl.xs
index a8e0e8a..2446ab7 100644
--- 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;
-- 
2.7.4