diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-24 18:20:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-24 18:20:36 +0000 |
| commit | 9cad6237545606d709afe9050f0e4a9838da6bc3 (patch) | |
| tree | 3bf224b99bcbf2b60837aa6da7f00a8fd4d23f02 /ext/Cwd | |
| parent | f43adeb59ad0b6b1b88cac94966f40d736797192 (diff) | |
| download | perl-9cad6237545606d709afe9050f0e4a9838da6bc3.tar.gz | |
Misplaces dSPs and the like revealed by MPE/iX and Cygwin.
p4raw-id: //depot/perl@10900
Diffstat (limited to 'ext/Cwd')
| -rw-r--r-- | ext/Cwd/Cwd.xs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/Cwd/Cwd.xs b/ext/Cwd/Cwd.xs index 82b89ac16b..be9427bc41 100644 --- a/ext/Cwd/Cwd.xs +++ b/ext/Cwd/Cwd.xs @@ -183,7 +183,9 @@ loop: #endif /* It's okay if the close fails, what's an fd more or less? */ +#ifdef HAS_FCHDIR (void)close(fd); +#endif return (resolved); err1: serrno = errno; |