From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 11 Dec 1998 13:29:54 +0000 (+0000)
Subject: MAXPATHLEN.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b990c8b2262dc25c0ee784f342e25f6a67c5ac7e;p=p5sagit%2Fp5-mst-13.2.git

MAXPATHLEN.

p4raw-id: //depot/cfgperl@2463
---

diff --git a/perl.h b/perl.h
index 9560567..1546bcd 100644
--- a/perl.h
+++ b/perl.h
@@ -1349,12 +1349,25 @@ typedef I32 (*filter_t) _((int, SV *, int));
 # endif
 #endif         
 
-/* XXX MAXPATHLEN should be determined by Configure */
 #ifndef MAXPATHLEN
 #  ifdef PATH_MAX
-#    define MAXPATHLEN PATH_MAX
+#    ifdef _POSIX_PATH_MAX
+#       if PATH_MAX > _POSIX_PATH_MAX
+/* MAXPATHLEN is supposed to include the final null character,
+ * as opposed to PATH_MAX and _POSIX_PATH_MAX. */
+#         define MAXPATHLEN (PATH_MAX+1)
+#       else
+#         define MAXPATHLEN (_POSIX_PATH_MAX+1)
+#       endif
+#    else
+#      define MAXPATHLEN (PATH_MAX+1)
+#    endif
 #  else
-#    define MAXPATHLEN 1024
+#    ifdef _POSIX_PATH_MAX
+#       define MAXPATHLEN (_POSIX_PATH_MAX+1)
+#    else
+#       define MAXPATHLEN 1024	/* Err on the large side. */
+#    endif
 #  endif
 #endif