diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-02-15 16:18:34 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-02-15 17:40:59 +0000 |
| commit | a26c0e281cb6068a8d148933281d8186f1eb4206 (patch) | |
| tree | ffc145e69008c8dc8e4ccddfd23b0ffb72800635 /proto.h | |
| parent | 55b4bc1cac18bd560bcd9386594a419294fafc1d (diff) | |
| download | perl-a26c0e281cb6068a8d148933281d8186f1eb4206.tar.gz | |
Loop in S_init_perllib(), only calling S_incpush*() with INCPUSH_ADD_OLD_VERS
the second time (and only for those entries at had it). Implement the loop by
calling init_perllib() twice, to avoid a rats nest of re-indenting. Add a new
flag to S_incpush() INCPUSH_NOT_BASEDIR, to supress pushing the base directory
a second time on the secnod call.
With this change, re-ordering of @INC from version-orientated to prefix-
orientated is partly complete. ARCHLIB and PRIVLIB remain at their old place in
the @INC order.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4764,7 +4764,7 @@ STATIC void S_incpush_use_sep(pTHX_ const char *p, U32 flags); STATIC void S_init_interp(pTHX); STATIC void S_init_ids(pTHX); STATIC void S_init_main_stash(pTHX); -STATIC void S_init_perllib(pTHX); +STATIC void S_init_perllib(pTHX_ U32 old_vers); STATIC void S_init_postdump_symbols(pTHX_ int argc, char **argv, char **env) __attribute__nonnull__(pTHX_2); #define PERL_ARGS_ASSERT_INIT_POSTDUMP_SYMBOLS \ |