Remove the stub nw_get_sitelib(), and undefine SITELIB_EXP for NetWare.
authorNicholas Clark <nick@ccl4.org>
Wed, 18 Feb 2009 15:28:12 +0000 (15:28 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 18 Feb 2009 15:28:12 +0000 (15:28 +0000)
(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.)

NetWare/config_H.wc
NetWare/nw5.c
perl.c

index f21a6e1..cef07cb 100644 (file)
  *     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:
index 56d3a62..7f9eebe 100644 (file)
@@ -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 (file)
--- 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.  */