summaryrefslogtreecommitdiff
path: root/ext/Cwd/Cwd.xs
diff options
context:
space:
mode:
authorPeter Prymmer <PPrymmer@factset.com>2001-04-25 09:18:44 -0700
committerJarkko Hietaniemi <jhi@iki.fi>2001-04-25 22:28:28 +0000
commit9d1ef5124ae4c80c934a800f6bec01350db2b113 (patch)
tree204c1b8b00b9cf8770b3a65d5dc4618bb4a4b0d6 /ext/Cwd/Cwd.xs
parentb4f14daa50ff79e763b90c905e323462060c08d7 (diff)
downloadperl-9d1ef5124ae4c80c934a800f6bec01350db2b113.tar.gz
fix a typo for Cwd.xs
Message-ID: <Pine.OSF.4.10.10104251614200.257877-100000@aspara.forte.com> p4raw-id: //depot/perl@9843
Diffstat (limited to 'ext/Cwd/Cwd.xs')
-rw-r--r--ext/Cwd/Cwd.xs2
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Cwd/Cwd.xs b/ext/Cwd/Cwd.xs
index b21b494f75..66bf47c271 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));