From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 21 Jun 2001 22:24:42 +0000 (+0000)
Subject: This town is too small for the Cwd extension and me,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=29ab7413bc53977d45b7ef9b91b2a8dacd1c277b;p=p5sagit%2Fp5-mst-13.2.git

This town is too small for the Cwd extension and me,
it would seem...

p4raw-id: //depot/perl@10804
---

diff --git a/ext/Cwd/Cwd.xs b/ext/Cwd/Cwd.xs
index 10c6f15..ba65a5f 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);