This is my patch patch.1h for perl5.001.

[perl5.git] / ext / Fcntl / Fcntl.xs

diff --git a/ext/Fcntl/Fcntl.xs b/ext/Fcntl/Fcntl.xs
index 2a36095..308e9dd 100644 (file)
--- a/ext/Fcntl/Fcntl.xs
+++ b/ext/Fcntl/Fcntl.xs
@@ -51,9 +51,9 @@ int arg;
 #else
                goto not_there;
 #endif
 #else
                goto not_there;
 #endif

-           if (strEQ(name, "SETFL"))
-#ifdef SETFL
-               return SETFL;
+           if (strEQ(name, "F_SETFL"))
+#ifdef F_SETFL
+               return F_SETFL;

 #else
                goto not_there;
 #endif
 #else
                goto not_there;
 #endif