mknod() is not POSIX, so remove the POSIX pieces from change#1199

p4raw-link: @1199 on //depot/perl: 6990d9917c06c8c6c480c9c385d7d2ed536c8d24

p4raw-id: //depot/perl@1215

diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm
index b95249c..32010d6 100644 (file)
--- 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 91ef781..4726487 100644 (file)
--- 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 568fbee..f48b792 100644 (file)
--- 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