Fix file-descriptor leak when pipes fail via taint checks:
[p5sagit/p5-mst-13.2.git] / os2 / POSIX.mkfifo
1 diff -cr ..\perl5os2.patch\perl5.001m.andy/ext/POSIX/POSIX.xs ./ext/POSIX/POSIX.xs
2 *** ../perl5os2.patch/perl5.001m.andy/ext/POSIX/POSIX.xs        Tue May 23 11:54:26 1995
3 --- ./ext/POSIX/POSIX.xs        Thu Sep 28 00:00:16 1995
4 ***************
5 *** 81,86 ****
6 --- 81,90 ----
7   /* Possibly needed prototypes */
8   char *cuserid _((char *));
9   
10 + #ifndef HAS_MKFIFO
11 + #define mkfifo(a,b) not_here("mkfifo")
12 + #endif
13
14   #ifndef HAS_CUSERID
15   #define cuserid(a) (char *) not_here("cuserid")
16   #endif