diff options
| -rw-r--r-- | ext/Fcntl/Fcntl.pm | 2 | ||||
| -rw-r--r-- | ext/Fcntl/Fcntl.xs | 24 |
2 files changed, 13 insertions, 13 deletions
diff --git a/ext/Fcntl/Fcntl.pm b/ext/Fcntl/Fcntl.pm index d9e36943d5..678b7fd897 100644 --- a/ext/Fcntl/Fcntl.pm +++ b/ext/Fcntl/Fcntl.pm @@ -39,7 +39,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $AUTOLOAD); require Exporter; require DynaLoader; @ISA = qw(Exporter DynaLoader); -$VERSION = "1.02"; +$VERSION = "1.03"; # Items to export into callers namespace by default # (move infrequently used names to @EXPORT_OK below) @EXPORT = diff --git a/ext/Fcntl/Fcntl.xs b/ext/Fcntl/Fcntl.xs index 4ecdf91e9c..a94864332e 100644 --- a/ext/Fcntl/Fcntl.xs +++ b/ext/Fcntl/Fcntl.xs @@ -57,6 +57,12 @@ int arg; #else goto not_there; #endif + if (strEQ(name, "F_GETOWN")) +#ifdef F_GETOWN + return F_GETOWN; +#else + goto not_there; +#endif if (strEQ(name, "F_SETFD")) #ifdef F_SETFD return F_SETFD; @@ -87,6 +93,12 @@ int arg; #else goto not_there; #endif + if (strEQ(name, "F_SETOWN")) +#ifdef F_SETOWN + return F_SETOWN; +#else + goto not_there; +#endif if (strEQ(name, "F_RDLCK")) #ifdef F_RDLCK return F_RDLCK; @@ -250,18 +262,6 @@ int arg; #else goto not_there; #endif - if (strEQ(name, "F_SETOWN")) -#ifdef F_SETOWN - return F_SETOWN; -#else - goto not_there; -#endif - if (strEQ(name, "F_GETOWN")) -#ifdef F_GETOWN - return F_GETOWN; -#else - goto not_there; -#endif if (strEQ(name, "O_DEFER")) #ifdef O_DEFER return O_DEFER; |