From: Andrej Borsenkow <Andrej.Borsenkow@mow.siemens.ru>
Date: Wed, 8 May 2002 10:33:14 +0000 (+0400)
Subject: RE: [ID 20020507.001] PATCH: 5.6.1: glob() problem on ReliantUNIX with LFS support
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=31d9e88bfc81dd1df0046dae881ec9f94b7aa50f;p=p5sagit%2Fp5-mst-13.2.git

RE: [ID 20020507.001] PATCH: 5.6.1: glob() problem on ReliantUNIX with LFS support
Message-ID: <6134254DE87BD411908B00A0C99B044F02E89A6A@mowd019a.mow.siemens.ru>

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

diff --git a/ext/File/Glob/bsd_glob.c b/ext/File/Glob/bsd_glob.c
index 7ec58aa..6989df8 100644
--- a/ext/File/Glob/bsd_glob.c
+++ b/ext/File/Glob/bsd_glob.c
@@ -207,7 +207,24 @@ my_readdir(DIR *d)
 #endif
 }
 #else
-#define	my_readdir	readdir
+
+/* ReliantUNIX (OS formerly known as SINIX) defines readdir
+ * in LFS-mode to be a 64-bit version of readdir.  */
+
+#   ifdef sinix
+static Direntry_t *    my_readdir(DIR*);
+
+static Direntry_t *
+my_readdir(DIR *d)
+{
+    return readdir(d);
+}
+#   else
+
+#       define	my_readdir	readdir
+
+#   endif
+
 #endif
 
 #ifdef MACOS_TRADITIONAL