diff options
| author | Jarkko Hietaniemi <jhi@cc.hut.fi> | 1997-01-25 17:10:20 +0200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-29 18:11:00 +1200 |
| commit | 5f832ef353a0bd2ca8a7cb6ea0b7e25cf9fcb9dd (patch) | |
| tree | 587d197c8ff8f9f6ce868f47c456c1e3955d4c1c | |
| parent | 68e56a5514edd0ab7f8a5f3ecd75c49a6ca1246e (diff) | |
| download | perl-5f832ef353a0bd2ca8a7cb6ea0b7e25cf9fcb9dd.tar.gz | |
Fcntl.xs: F_[GS]ETOWN were in wrong case branch
private-msgid: <199701251510.RAA05142@alpha.hut.fi>
| -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; |