From 9cad6237545606d709afe9050f0e4a9838da6bc3 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 24 Jun 2001 18:20:36 +0000
Subject: Misplaces dSPs and the like revealed by MPE/iX and Cygwin.

p4raw-id: //depot/perl@10900
---
 ext/Cwd/Cwd.xs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'ext/Cwd')

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;
-- 
cgit v1.2.1