In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/17d72df675df954f83e3ef2b679e3c01d45a412e?hp=9fa9bd42fd4968537325092ac44713769848d329>
- Log ----------------------------------------------------------------- commit 17d72df675df954f83e3ef2b679e3c01d45a412e Author: David Mitchell <[email protected]> Date: Wed Dec 10 11:58:26 2014 +0000 porting/utils.t: explain what caused failures On an error, include in the diagnostic output what perl command we were running that triggered the failure. M t/porting/utils.t commit 500f40f555ee1c386dcd8fbd4c8043a7739ec5f6 Author: David Mitchell <[email protected]> Date: Wed Dec 10 10:41:33 2014 +0000 unop_aux_stringify(): remove redundant assignment my recent OP_MULTIDEREF patch included this bizarre thinko: PAD *comppad = comppad = ....; Spotted by Jarkko. M dump.c ----------------------------------------------------------------------- Summary of changes: dump.c | 2 +- t/porting/utils.t | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/dump.c b/dump.c index e11b73c..afa40cd 100644 --- a/dump.c +++ b/dump.c @@ -2339,7 +2339,7 @@ Perl_unop_aux_stringify(pTHX_ const OP *o, CV *cv) SV *out = sv_2mortal(newSVpv("",0)); #ifdef USE_ITHREADS PADLIST * const padlist = CvPADLIST(cv); - PAD *comppad = comppad = PadlistARRAY(padlist)[1]; + PAD *comppad = PadlistARRAY(padlist)[1]; #endif PERL_ARGS_ASSERT_UNOP_AUX_STRINGIFY; diff --git a/t/porting/utils.t b/t/porting/utils.t index 7ff13cf..2fe9075 100644 --- a/t/porting/utils.t +++ b/t/porting/utils.t @@ -86,7 +86,8 @@ foreach my $victim (@victims) { if $excuses{$victim}; my $got = runperl(switches => ['-c'], progfile => $victim, stderr => 1, nolib => 1); - is($got, "$victim syntax OK\n", "$victim compiles"); + is($got, "$victim syntax OK\n", "$victim compiles") + or diag("when executing perl with '-c $victim'"); } } -- Perl5 Master Repository
