This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
This is my patch patch.1h for perl5.001.
[perl5.git] / ext / Fcntl / Fcntl.xs
index 2a36095..308e9dd 100644 (file)
@@ -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