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 (file)
--- 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);