rename s/sv_getcwd/getcwd_sv/ for better conformance to existing
[p5sagit/p5-mst-13.2.git] / ext / Cwd / Cwd.xs
index be9427b..b6f27b8 100644 (file)
@@ -194,7 +194,11 @@ err1:      serrno = errno;
 #else
        (void)chdir(wd);
 #endif
-err2:  (void)close(fd);
+
+err2:
+#ifdef HAS_FCHDIR
+       (void)close(fd);
+#endif
        errno = serrno;
        return (NULL);
 #endif
@@ -209,7 +213,7 @@ fastcwd()
 PPCODE:
 {
     dXSTARG;
-    sv_getcwd(TARG);
+    getcwd_sv(TARG);
     XSprePUSH; PUSHTARG;
 }