diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-01-09 14:10:34 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-01-09 14:10:34 +0000 |
| commit | 33fb14dcecfb8ef90b19a0ecdf4894a1a64e0771 (patch) | |
| tree | 98fbf4d0592fd55b70906073fd5712bb23311ab8 /ext/POSIX | |
| parent | 408fd5c4e2ad1a9746e75d8539260fee3931d832 (diff) | |
| download | perl-33fb14dcecfb8ef90b19a0ecdf4894a1a64e0771.tar.gz | |
POSIX and Fcntl both export the same constants derived from the same
C macros. Given that constants are now real inline and *defined*,
rather than merely declared and AUTOLOADed as needed, it is best that
POSIX quite litereally re-exports the constants defined by Fcntl.
p4raw-id: //depot/perl@26754
Diffstat (limited to 'ext/POSIX')
| -rw-r--r-- | ext/POSIX/Makefile.PL | 13 | ||||
| -rw-r--r-- | ext/POSIX/POSIX.pm | 5 |
2 files changed, 10 insertions, 8 deletions
diff --git a/ext/POSIX/Makefile.PL b/ext/POSIX/Makefile.PL index 291d36eb3a..80f1daa32a 100644 --- a/ext/POSIX/Makefile.PL +++ b/ext/POSIX/Makefile.PL @@ -33,14 +33,11 @@ my @names = ENOTTY ENXIO EOF EOPNOTSUPP EPERM EPFNOSUPPORT EPIPE EPROCLIM EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS ETXTBSY - EUSERS EWOULDBLOCK EXDEV FD_CLOEXEC FILENAME_MAX F_DUPFD F_GETFD - F_GETFL F_GETLK F_OK F_RDLCK F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK - F_WRLCK HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR INLCR INPCK - INT_MAX INT_MIN ISIG ISTRIP IXOFF IXON LC_ALL LC_COLLATE LC_CTYPE - LC_MESSAGES LC_MONETARY LC_NUMERIC LC_TIME LINK_MAX LONG_MAX LONG_MIN - L_ctermid L_cuserid L_tmpnam MAX_CANON MAX_INPUT MB_LEN_MAX - NAME_MAX NCCS NGROUPS_MAX NOFLSH OPEN_MAX OPOST O_ACCMODE O_APPEND - O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC O_WRONLY + EUSERS EWOULDBLOCK EXDEV FILENAME_MAX F_OK HUPCL ICANON ICRNL IEXTEN + IGNBRK IGNCR IGNPAR INLCR INPCK INT_MAX INT_MIN ISIG ISTRIP IXOFF IXON + LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES LC_MONETARY LC_NUMERIC LC_TIME + LINK_MAX LONG_MAX LONG_MIN L_ctermid L_cuserid L_tmpnam MAX_CANON + MAX_INPUT MB_LEN_MAX NAME_MAX NCCS NGROUPS_MAX NOFLSH OPEN_MAX OPOST PARENB PARMRK PARODD PATH_MAX PIPE_BUF RAND_MAX R_OK SCHAR_MAX SCHAR_MIN SEEK_CUR SEEK_END SEEK_SET SHRT_MAX SHRT_MIN SIGABRT SIGALRM SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT SIGKILL SIGPIPE SIGQUIT diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm index 895c554640..72597f77f4 100644 --- a/ext/POSIX/POSIX.pm +++ b/ext/POSIX/POSIX.pm @@ -8,6 +8,11 @@ use AutoLoader; use XSLoader (); +use Fcntl qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK F_SETFD + F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND + O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC + O_WRONLY); + # Grandfather old foo_h form to new :foo_h form my $loaded; |