From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 18 Feb 2009 15:28:12 +0000 (+0000)
Subject: Remove the stub nw_get_sitelib(), and undefine SITELIB_EXP for NetWare.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=12865a2da083d2bfe48d969828043a3ca2652643;p=p5sagit%2Fp5-mst-13.2.git

Remove the stub nw_get_sitelib(), and undefine SITELIB_EXP for NetWare.
(nw_get_sitelib() was hard coded to return NULL, which is a slower equivalent
to simply not defining SITELIB_EXP in the first place. I suspect a cargo cult
of win32/ without actually taking the time to understand it.)
---

diff --git a/NetWare/config_H.wc b/NetWare/config_H.wc
index f21a6e1..cef07cb 100644
--- a/NetWare/config_H.wc
+++ b/NetWare/config_H.wc
@@ -3066,7 +3066,7 @@
  *	be tacked onto this variable to generate a list of directories to search.
  */
 #define SITELIB "c:\\perl\\site\\5.11.0\\lib"		/**/
-#define SITELIB_EXP (nw_get_sitelib("5.11.0"))	/**/
+/*#define SITELIB_EXP ""	/**/
 #define SITELIB_STEM ""		/**/
 
 /* Size_t_size:
diff --git a/NetWare/nw5.c b/NetWare/nw5.c
index 56d3a62..7f9eebe 100644
--- a/NetWare/nw5.c
+++ b/NetWare/nw5.c
@@ -870,12 +870,6 @@ perl_clone_host(PerlInterpreter* proto_perl, UV flags)
 
 // Some more functions:
 
-char *
-nw_get_sitelib(const char *pl)
-{
-    return (NULL);
-}
-
 int
 execv(char *cmdname, char **argv)
 {
diff --git a/perl.c b/perl.c
index cf7ef08..512e47a 100644
--- a/perl.c
+++ b/perl.c
@@ -29,7 +29,6 @@
 
 #ifdef NETWARE
 #include "nwutil.h"	
-char *nw_get_sitelib(const char *pl);
 #endif
 
 /* XXX If this causes problems, set i_unistd=undef in the hint file.  */