In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/12865a2da083d2bfe48d969828043a3ca2652643?hp=50d61629dc7fe34f077b9f66c50287d839e06378>
- Log -----------------------------------------------------------------
commit 12865a2da083d2bfe48d969828043a3ca2652643
Author: Nicholas Clark <n...@ccl4.org>
Date: Wed Feb 18 15:28:12 2009 +0000
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.)
-----------------------------------------------------------------------
Summary of changes:
NetWare/config_H.wc | 2 +-
NetWare/nw5.c | 6 ------
perl.c | 1 -
3 files changed, 1 insertions(+), 8 deletions(-)
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. */
--
Perl5 Master Repository
