diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-25 18:56:59 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-25 18:56:59 +0000 |
| commit | 76b4e777616f9f9ab84de19fa2cc4a368604dcf1 (patch) | |
| tree | a0c74894005806a9c176f2d1eed57241b9dbd287 | |
| parent | d41de25ae6318c70d61484048a5653774b9b3ad9 (diff) | |
| download | perl-76b4e777616f9f9ab84de19fa2cc4a368604dcf1.tar.gz | |
mknod() is not POSIX, so remove the POSIX pieces from change#1199
p4raw-link: @1199 on //depot/perl: 6990d9917c06c8c6c480c9c385d7d2ed536c8d24
p4raw-id: //depot/perl@1215
| -rw-r--r-- | ext/POSIX/POSIX.pm | 2 | ||||
| -rw-r--r-- | ext/POSIX/POSIX.pod | 6 | ||||
| -rw-r--r-- | ext/POSIX/POSIX.xs | 13 |
3 files changed, 1 insertions, 20 deletions
diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm index b95249ce43..32010d62e0 100644 --- a/ext/POSIX/POSIX.pm +++ b/ext/POSIX/POSIX.pm @@ -115,7 +115,7 @@ $VERSION = "1.02" ; sys_stat_h => [qw(S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR - fstat mkfifo mknod)], + fstat mkfifo)], sys_times_h => [qw()], diff --git a/ext/POSIX/POSIX.pod b/ext/POSIX/POSIX.pod index 91ef781c12..4726487b47 100644 --- a/ext/POSIX/POSIX.pod +++ b/ext/POSIX/POSIX.pod @@ -660,12 +660,6 @@ This is similar to the C function C<mkfifo()>. Returns C<undef> on failure. -=item mknod - -This is similar to the C function C<mknod()>. - -Returns C<undef> on failure. - =item mktime Convert date/time info to a calendar time. diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 568fbeee73..f48b792d2d 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -65,7 +65,6 @@ # undef mkfifo # define mkfifo(a,b) (not_here("mkfifo"),-1) -# define mknod(a,b,c) (not_here("mknod"),-1) # define tzset() not_here("tzset") #if ((__VMS_VER >= 70000000) && (__DECC_VER >= 50200000)) || (__CRTL_VER >= 70000000) @@ -107,7 +106,6 @@ #if defined (WIN32) # undef mkfifo # define mkfifo(a,b) not_here("mkfifo") -# define mknod(a,b,c) not_here("mknod") # define ttyname(a) (char*)not_here("ttyname") # define sigset_t long # define pid_t long @@ -3483,17 +3481,6 @@ mkfifo(filename, mode) RETVAL SysRet -mknod(filename, mode, device) - char * filename - Mode_t mode - Dev_t device - CODE: - TAINT_PROPER("mknod"); - RETVAL = mknod(filename, mode, device); - OUTPUT: - RETVAL - -SysRet tcdrain(fd) int fd |