fix a typo for Cwd.xs

Message-ID: <Pine.OSF.4.10.10104251614200.257877-100000@aspara.forte.com>

p4raw-id: //depot/perl@9843

diff --git a/ext/Cwd/Cwd.xs b/ext/Cwd/Cwd.xs
index b21b494..66bf47c 100644 (file)
--- a/ext/Cwd/Cwd.xs
+++ b/ext/Cwd/Cwd.xs
@@ -205,7 +205,7 @@ _cwdxs_abs_path(char *start)
       Move(cwd, cwd + namelen + 1, strlen(cwd), char);
       Copy(dp->d_name, cwd + 1, namelen, char);
 #ifdef VOID_CLOSEDIR
-      PerlDir_close(dir);
+      PerlDir_close(parent);
 #else
       if (PerlDir_close(parent) < 0) {
         warn("abs_path: closedir(\"%s\"): %s", dotdots, Strerror(errno));