In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/37ca4a5b0e9f2e075b875f76e6e1d90c52288ad9?hp=d3c89c47761c74a328499a816b05990e18ed357e>
- Log ----------------------------------------------------------------- commit 37ca4a5b0e9f2e075b875f76e6e1d90c52288ad9 Author: Nicholas Clark <[email protected]> Date: Wed Sep 30 08:50:25 2009 +0100 Simplify building the Perl code invoked for perl -V ----------------------------------------------------------------------- Summary of changes: perl.c | 7 +++---- 1 files changed, 3 insertions(+), 4 deletions(-) diff --git a/perl.c b/perl.c index 5a37bb2..be11625 100644 --- a/perl.c +++ b/perl.c @@ -1844,18 +1844,17 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) { SV *opts_prog; - Perl_av_create_and_push(aTHX_ &PL_preambleav, newSVpvs("use Config;")); if (*++s != ':') { - opts_prog = newSVpvs("Config::_V()"); + opts_prog = newSVpvs("use Config; Config::_V()"); } else { ++s; opts_prog = Perl_newSVpvf(aTHX_ - "Config::config_vars(qw%c%s%c)", + "use Config; Config::config_vars(qw%c%s%c)", 0, s, 0); s += strlen(s); } - av_push(PL_preambleav, opts_prog); + Perl_av_create_and_push(aTHX_ &PL_preambleav, opts_prog); /* don't look for script or read stdin */ scriptname = BIT_BUCKET; goto reswitch; -- Perl5 Master Repository
