summaryrefslogtreecommitdiff
path: root/ext/File
diff options
context:
space:
mode:
authorAndrej Borsenkow <Andrej.Borsenkow@mow.siemens.ru>2002-05-08 14:33:14 +0400
committerJarkko Hietaniemi <jhi@iki.fi>2002-05-08 12:30:53 +0000
commit31d9e88bfc81dd1df0046dae881ec9f94b7aa50f (patch)
treed0e379bac9fe77a2f5dd7e477e95798aa8517667 /ext/File
parentcaa9d8804e0bff3e31fb731f41ebc68464f2a6b5 (diff)
downloadperl-31d9e88bfc81dd1df0046dae881ec9f94b7aa50f.tar.gz
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
Diffstat (limited to 'ext/File')
-rw-r--r--ext/File/Glob/bsd_glob.c19
1 files changed, 18 insertions, 1 deletions
diff --git a/ext/File/Glob/bsd_glob.c b/ext/File/Glob/bsd_glob.c
index 7ec58aa489..6989df883c 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