From: Peter Prymmer <PPrymmer@factset.com>
Date: Wed, 25 Apr 2001 16:18:44 +0000 (-0700)
Subject: fix a typo for Cwd.xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d1ef5124ae4c80c934a800f6bec01350db2b113;p=p5sagit%2Fp5-mst-13.2.git

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