@@ -439,7 +439,7 @@ sub run_tests {
439439
440440 my @mpl_out = run(qq{ $perl Makefile.PL} );
441441 SKIP: {
442- unless (cmp_ok( $? , ' ==' , 0, ' Makefile.PL exited with zero' )) {
442+ unless (cmp_ok( $? , ' ==' , 0, " Makefile.PL exited with zero ( $label ) " )) {
443443 diag(@mpl_out );
444444 skip ' perl Makefile.PL failed' , 2;
445445 }
@@ -457,7 +457,7 @@ sub run_tests {
457457 }
458458 my $make_cmd = make_macro($make , $target , %macros );
459459 my $make_out = run($make_cmd );
460- unless (is( $? , 0, " $make_cmd exited normally" )) {
460+ unless (is( $? , 0, " $make_cmd exited normally ( $label ) " )) {
461461 diag $make_out ;
462462 skip ' Make failed - skipping test' , 1;
463463 }
@@ -478,7 +478,7 @@ sub run_tests {
478478 }
479479 my $test_cmd = make_macro($make , $target , %macros );
480480 my $test_out = run($test_cmd );
481- is( $? , 0, " $test_cmd exited normally" ) || diag " $make_out \n $test_out " ;
481+ is( $? , 0, " $test_cmd exited normally ( $label ) " ) || diag " $make_out \n $test_out " ;
482482 }
483483
484484 chdir File::Spec-> updir or die ;
0 commit comments