diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-09-09 23:25:08 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-09-13 11:28:09 +0200 |
| commit | b5890904f47c50162fb527e73d63b248fdfce4ec (patch) | |
| tree | 40cc7861c79e92fff4264d6ef585bfa93b9e8c54 /ext | |
| parent | 9163475a789153de62707173000059f8782f35d8 (diff) | |
| download | perl-b5890904f47c50162fb527e73d63b248fdfce4ec.tar.gz | |
Merge the implementations of POSIX::{access,mkfifo} using ALIAS.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/POSIX/POSIX.xs | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index e09454d619..72842998f4 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -1704,9 +1704,15 @@ SysRet mkfifo(filename, mode) char * filename Mode_t mode + ALIAS: + access = 1 CODE: - TAINT_PROPER("mkfifo"); - RETVAL = mkfifo(filename, mode); + if(ix) { + RETVAL = access(filename, mode); + } else { + TAINT_PROPER("mkfifo"); + RETVAL = mkfifo(filename, mode); + } OUTPUT: RETVAL @@ -1859,11 +1865,6 @@ tzname() PUSHs(newSVpvn_flags(tzname[0], strlen(tzname[0]), SVs_TEMP)); PUSHs(newSVpvn_flags(tzname[1], strlen(tzname[1]), SVs_TEMP)); -SysRet -access(filename, mode) - char * filename - Mode_t mode - char * ctermid(s = 0) char * s = 0; |