This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [ID 20000628.006] POSIX::STRERR_FILENO typo
authorYitzchak Scott-Thoennes <sthoenna@efn.org>
Wed, 28 Jun 2000 17:50:12 +0000 (10:50 -0700)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 29 Jun 2000 15:04:05 +0000 (15:04 +0000)
Message-ID: <E1pW5gzkg2kV092yn@efn.org>

p4raw-id: //depot/cfgperl@6265

ext/POSIX/POSIX.pm
ext/POSIX/POSIX.pod
ext/POSIX/POSIX.xs

index d4d9c33..252e5bb 100644 (file)
@@ -893,7 +893,7 @@ sub load_imports {
                difftime mktime strftime tzset tzname)],
 
     unistd_h =>        [qw(F_OK NULL R_OK SEEK_CUR SEEK_END SEEK_SET
-               STRERR_FILENO STDIN_FILENO STDOUT_FILENO W_OK X_OK
+               STDERR_FILENO STDIN_FILENO STDOUT_FILENO W_OK X_OK
                _PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON
                _PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX
                _PC_PIPE_BUF _PC_VDISABLE _POSIX_CHOWN_RESTRICTED
index 08300e4..186d72e 100644 (file)
@@ -1715,7 +1715,7 @@ CLK_TCK CLOCKS_PER_SEC
 
 =item Constants
 
-R_OK SEEK_CUR SEEK_END SEEK_SET STDIN_FILENO STDOUT_FILENO STRERR_FILENO W_OK X_OK
+R_OK SEEK_CUR SEEK_END SEEK_SET STDIN_FILENO STDOUT_FILENO STDERR_FILENO W_OK X_OK
 
 =back
 
index c401527..b8b80d4 100644 (file)
@@ -2306,9 +2306,9 @@ constant(char *name, int arg)
 #else
            goto not_there;
 #endif
-       if (strEQ(name, "STRERR_FILENO"))
-#ifdef STRERR_FILENO
-           return STRERR_FILENO;
+       if (strEQ(name, "STDERR_FILENO"))
+#ifdef STDERR_FILENO
+           return STDERR_FILENO;
 #else
            goto not_there;
 #endif