diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-05 08:53:08 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-05 08:53:08 +0000 |
| commit | 3ab23a19ef2035506d06b40c16360f845e997742 (patch) | |
| tree | bcdc1a4b60c2b8cb400efbd28cc6378b0a2c68dc /ext/POSIX | |
| parent | b988aa42542aa1211e2de8ba6ea52415dd30488b (diff) | |
| download | perl-3ab23a19ef2035506d06b40c16360f845e997742.tar.gz | |
Change 22436 broke the Windows build.
Fix by Steve Hay.
p4raw-id: //depot/perl@22441
Diffstat (limited to 'ext/POSIX')
| -rw-r--r-- | ext/POSIX/POSIX.xs | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index abafefeb83..091990504c 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -1806,9 +1806,18 @@ access(filename, mode) char * ctermid(s = 0) - char * s = safemalloc((size_t) L_ctermid); + char * s = 0; + CODE: +#ifdef HAS_CTERMID_R + s = safemalloc((size_t) L_ctermid); +#endif + RETVAL = ctermid(s); + OUTPUT: + RETVAL CLEANUP: +#ifdef HAS_CTERMID_R Safefree(s); +#endif char * cuserid(s = 0) |