From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 7 Jul 1999 18:47:03 +0000 (+0000)
Subject: change#1889 mistakenly removed F_SETLK
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d9fde92e0874aabf610d52680de462a0e0165d23;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;