From: Peter Prymmer <PPrymmer@factset.com>
Date: Thu, 19 Apr 2001 12:02:40 +0000 (-0700)
Subject: void close_dir portability fix for Cwd.xs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c38fcba2cef4fd93dbad60a29923f7e29f30069e;p=p5sagit%2Fp5-mst-13.2.git

void close_dir portability fix for Cwd.xs
Message-ID: <Pine.OSF.4.10.10104191158490.348917-100000@aspara.forte.com>

p4raw-id: //depot/perl@9758
---

diff --git a/ext/Cwd/Cwd.xs b/ext/Cwd/Cwd.xs
index 31e408f..0f2fde0 100644
--- a/ext/Cwd/Cwd.xs
+++ b/ext/Cwd/Cwd.xs
@@ -85,10 +85,14 @@ _cwdxs_fastcwd(void)
     pathlen += (namelen + 1);
     ++i;
 
+#ifdef VOID_CLOSEDIR
+    PerlDir_close(dir);
+#else
     if (PerlDir_close(dir) < 0) {
       Safefree(names);
       return FALSE;
     }
+#endif
   }
 
   Newz(0, path, pathlen + 1, char);