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 (file)
--- 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