X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/a0d0e21ea6ea90a22318550944fe6cb09ae10cda..3b35bae3d5913952e779006fe378c78297e23080:/ext/Fcntl/Fcntl.xs?ds=sidebyside

diff --git a/ext/Fcntl/Fcntl.xs b/ext/Fcntl/Fcntl.xs
index 2a36095..308e9dd 100644
--- a/ext/Fcntl/Fcntl.xs
+++ b/ext/Fcntl/Fcntl.xs
@@ -51,9 +51,9 @@ int arg;
 #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