diff options
Diffstat (limited to 'ext/Cwd/Cwd.xs')
| -rw-r--r-- | ext/Cwd/Cwd.xs | 2 |
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)); |