In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/b0e687f777617f7ff223559dbda04c4f53864b19?hp=6fa4daccf8676188291b42c143f34f4ab72ff066>
- Log ----------------------------------------------------------------- commit b0e687f777617f7ff223559dbda04c4f53864b19 Author: Nicholas Clark <[email protected]> Date: Wed Sep 23 10:42:00 2009 +0100 Restrict miniperl to just -I..., the split of $ENV{PERL5LIB}, and "." in @INC M perl.c commit 3267aef691333a85988941dbf9b86e331ecde4f3 Author: Nicholas Clark <[email protected]> Date: Wed Sep 23 10:02:21 2009 +0100 Declare PERL_IS_MINIPERL in the output of ./{mini,}perl -V (It should never happen that miniperl gets into production, but make something foolproof and ...) M perl.c ----------------------------------------------------------------------- Summary of changes: perl.c | 8 ++++++++ 1 files changed, 8 insertions(+), 0 deletions(-) diff --git a/perl.c b/perl.c index e80b9e4..8691a15 100644 --- a/perl.c +++ b/perl.c @@ -1774,6 +1774,9 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) # ifdef PERL_DONT_CREATE_GVSV " PERL_DONT_CREATE_GVSV" # endif +# ifdef PERL_IS_MINIPERL + " PERL_IS_MINIPERL" +# endif # ifdef PERL_MALLOC_WRAP " PERL_MALLOC_WRAP" # endif @@ -4055,6 +4058,10 @@ S_init_perllib(pTHX) #endif /* VMS */ } +#ifndef PERL_IS_MINIPERL + /* miniperl gets just -I..., the split of $ENV{PERL5LIB}, and "." in @INC + (and not the architecture specific directories from $ENV{PERL5LIB}) */ + /* Use the ~-expanded versions of APPLLIB (undocumented), ARCHLIB PRIVLIB SITEARCH SITELIB VENDORARCH and VENDORLIB */ @@ -4185,6 +4192,7 @@ S_init_perllib(pTHX) INCPUSH_ADD_OLD_VERS|INCPUSH_ADD_ARCHONLY_SUB_DIRS |INCPUSH_CAN_RELOCATE); #endif +#endif /* !PERL_IS_MINIPERL */ if (!PL_tainting) S_incpush(aTHX_ STR_WITH_LEN("."), 0); -- Perl5 Master Repository
