diff options
| author | Larry Wall <lwall@netlabs.com> | 1995-03-12 22:32:14 -0800 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1995-03-12 22:32:14 -0800 |
| commit | 748a93069b3d16374a9859d1456065dd3ae11394 (patch) | |
| tree | 308ca14de9933a313dceacce8be77db67d9368c7 /ext/POSIX/POSIX.xs | |
| parent | fec02dd38faf8f83471b031857d89cb76fea1ca0 (diff) | |
| download | perl-748a93069b3d16374a9859d1456065dd3ae11394.tar.gz | |
Perl 5.001perl-5.001
[See the Changes file for a list of changes]
Diffstat (limited to 'ext/POSIX/POSIX.xs')
| -rw-r--r-- | ext/POSIX/POSIX.xs | 19 |
1 files changed, 16 insertions, 3 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index fbd21c894b..5c2fe2400e 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -2412,7 +2412,8 @@ ungetc(handle, c) RETVAL OutputStream -new_tmpfile() +new_tmpfile(packname = "FileHandle") + char * packname CODE: RETVAL = tmpfile(); OUTPUT: @@ -2582,6 +2583,13 @@ open(filename, flags = O_RDONLY, mode = 0666) char * filename int flags Mode_t mode + CODE: + if (flags & (O_APPEND|O_CREAT|O_TRUNC|O_RDWR|O_WRONLY|O_EXCL)) + TAINT_PROPER("open"); + RETVAL = open(filename, flags, mode); + OUTPUT: + RETVAL + HV * localeconv() @@ -2972,7 +2980,7 @@ strxfrm(src) STRLEN dstlen; char *p = SvPV(src,srclen); srclen++; - ST(0) = sv_2mortal(newSV(srclen)); + ST(0) = sv_2mortal(NEWSV(800,srclen)); dstlen = strxfrm(SvPVX(ST(0)), p, (size_t)srclen); if (dstlen > srclen) { dstlen++; @@ -2988,6 +2996,11 @@ SysRet mkfifo(filename, mode) char * filename Mode_t mode + CODE: + TAINT_PROPER("mkfifo"); + RETVAL = mkfifo(filename, mode); + OUTPUT: + RETVAL SysRet tcdrain(fd) @@ -3043,7 +3056,7 @@ clock() char * ctime(time) - Time_t * time + Time_t &time double difftime(time1, time2) |