diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2001-04-19 05:02:40 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-19 22:36:00 +0000 |
| commit | c38fcba2cef4fd93dbad60a29923f7e29f30069e (patch) | |
| tree | 90f683cf530d1a989db5f4f366dba261e9bc7e46 /ext/Cwd | |
| parent | 2a74cb2d78460460b0c6ce5901dc2e9c328d065e (diff) | |
| download | perl-c38fcba2cef4fd93dbad60a29923f7e29f30069e.tar.gz | |
void close_dir portability fix for Cwd.xs
Message-ID: <Pine.OSF.4.10.10104191158490.348917-100000@aspara.forte.com>
p4raw-id: //depot/perl@9758
Diffstat (limited to 'ext/Cwd')
| -rw-r--r-- | ext/Cwd/Cwd.xs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ext/Cwd/Cwd.xs b/ext/Cwd/Cwd.xs index 31e408fcc5..0f2fde0ebf 100644 --- a/ext/Cwd/Cwd.xs +++ b/ext/Cwd/Cwd.xs @@ -85,10 +85,14 @@ _cwdxs_fastcwd(void) pathlen += (namelen + 1); ++i; +#ifdef VOID_CLOSEDIR + PerlDir_close(dir); +#else if (PerlDir_close(dir) < 0) { Safefree(names); return FALSE; } +#endif } Newz(0, path, pathlen + 1, char); |