diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-21 22:24:42 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-21 22:24:42 +0000 |
| commit | 29ab7413bc53977d45b7ef9b91b2a8dacd1c277b (patch) | |
| tree | c92097374dac94a8c18699612f7668ddc0dbba5d /ext | |
| parent | 5f65b3786074ea8af486c97d213f33a0d5fcde02 (diff) | |
| download | perl-29ab7413bc53977d45b7ef9b91b2a8dacd1c277b.tar.gz | |
This town is too small for the Cwd extension and me,
it would seem...
p4raw-id: //depot/perl@10804
Diffstat (limited to 'ext')
| -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 10c6f15422..ba65a5f13c 100644 --- a/ext/Cwd/Cwd.xs +++ b/ext/Cwd/Cwd.xs @@ -183,7 +183,11 @@ loop: return (resolved); err1: serrno = errno; +#ifdef HAS_FCHDIR (void)fchdir(fd); +#else + (void)chdir(wd); +#endif err2: (void)close(fd); errno = serrno; return (NULL); |