From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 21 Feb 2009 07:06:06 +0000 (+0100)
Subject: NetWare has PRIVLIB_EXP as something other than a string constant. Cope with it.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=04c9eeccd3e478befe53fb07abf3922d22fd9d69;p=p5sagit%2Fp5-mst-13.2.git

NetWare has PRIVLIB_EXP as something other than a string constant. Cope with it.
---

diff --git a/perl.c b/perl.c
index 34f95de..487cc38 100644
--- a/perl.c
+++ b/perl.c
@@ -4238,7 +4238,11 @@ S_init_perllib(pTHX_ U32 old_vers)
 	if (s)
 	    incpush_use_sep(s, len, INCPUSH_ADD_SUB_DIRS|INCPUSH_CAN_RELOCATE);
 #else
+#  ifdef NETWARE
+	S_incpush_use_sep(aTHX_ PRIVLIB_EXP, 0, INCPUSH_CAN_RELOCATE);
+#  else
 	S_incpush_use_sep(aTHX_ STR_WITH_LEN(PRIVLIB_EXP), INCPUSH_CAN_RELOCATE);
+#  endif
 #endif
     }