Ensure that the perl build doesn't read any installed sitecustomize script.
authorNicholas Clark <nick@ccl4.org>
Tue, 15 Sep 2009 13:56:44 +0000 (14:56 +0100)
committerNicholas Clark <nick@ccl4.org>
Tue, 15 Sep 2009 13:56:44 +0000 (14:56 +0100)
But not the tests yet.

We need to avoid running a sitecustomize script as it may have side effects
that cause the build to fail, or worse, complete but with buggy side effects.

Makefile.SH
perl.c
vms/descrip_mms.template
win32/Makefile
win32/makefile.mk

index 83f1ad1..58c4449 100644 (file)
@@ -982,7 +982,7 @@ uni.data: miniperl$(EXE_EXT) $(CONFIGPM) lib/unicore/mktables $(nonxs_ext)
 # But also this ensures that all extensions are built before we try to scan
 # them, which picks up Devel::PPPort's documentation.
 pod/perltoc.pod: $(perltoc_pod_prereqs) perl$(EXE_EXT) $(ext) pod/buildtoc
-       $(LDLIBPTH) $(RUN) ./perl$(EXE_EXT) -Ilib pod/buildtoc --build-toc -q
+       $(LDLIBPTH) $(RUN) ./perl$(EXE_EXT) -f -Ilib pod/buildtoc --build-toc -q
 
 pod/perlapi.pod pod/perlintern.pod: miniperl$(EXE_EXT) autodoc.pl embed.fnc
        $(LDLIBPTH) $(RUN) ./miniperl$(EXE_EXT) -Ilib autodoc.pl
diff --git a/perl.c b/perl.c
index 6cf99f1..e80b9e4 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1940,7 +1940,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
     }
     }
 
-#ifdef USE_SITECUSTOMIZE
+#if defined(USE_SITECUSTOMIZE) && !defined(PERL_IS_MINIPERL)
     if (!minus_f) {
        /* SITELIB_EXP is a function call on Win32.
           The games with local $! are to avoid setting errno if there is no
index 747aeac..f55ef18 100644 (file)
@@ -448,7 +448,7 @@ pod = $(pod0) $(pod1) $(pod2) $(pod3) $(pod4) $(pod5) $(pod6) $(pod7) $(pod8) $(
 
 [.pod]perltoc.pod : [.pod]perldelta.pod [.pod]perlapi.pod [.pod]perlintern.pod  [.pod]perlmodlib.pod extra.pods $(PERL_EXE)
        @ define/user_mode $(DBG)PERLSHR SYS$DISK:[]$(DBG)perlshr$(E)
-       $(PERL) [.pod]buildtoc "-q" "--build-toc"
+       $(PERL) "-f" [.pod]buildtoc "-q" "--build-toc"
 
 archcorefiles : $(ac) $(ARCHAUTO)time.stamp
        @ $(NOOP)
index 9f6fa3d..d4eb178 100644 (file)
@@ -1145,7 +1145,7 @@ utils: $(PERLEXE) $(X2P)
        $(PERLEXE) $(ICWD) ..\pod\perlmodlib.pl -q
 
 ..\pod\perltoc.pod: $(PERLEXE) Extensions Extensions_nonxs
-       $(PERLEXE) ..\pod\buildtoc --build-toc -q
+       $(PERLEXE) -f ..\pod\buildtoc --build-toc -q
 
 # Note that the pod cleanup in this next section is parsed (and regenerated
 # by pod/buildtoc so please check that script before making changes here
index e9f54ad..a4dc36a 100644 (file)
@@ -1470,7 +1470,7 @@ utils: $(PERLEXE) $(X2P)
        $(PERLEXE) $(ICWD) ..\pod\perlmodlib.pl -q
 
 ..\pod\perltoc.pod: $(PERLEXE) Extensions Extensions_nonxs
-       $(PERLEXE) ..\pod\buildtoc --build-toc -q
+       $(PERLEXE) -f ..\pod\buildtoc --build-toc -q
 
 # Note that the pod cleanup in this next section is parsed (and regenerated
 # by pod/buildtoc so please check that script before making changes here