@@ -53,7 +53,6 @@ is_even(input)
5353END
5454
5555my $T_TEST = <<'END' ;
56- #!/usr/bin/perl -w
5756use strict;
5857use warnings;
5958use Test::More tests => 3;
@@ -116,7 +115,6 @@ is_odd(input)
116115END
117116
118117my $T_OTHER = <<'END' ;
119- #!/usr/bin/perl -w
120118use strict;
121119use warnings;
122120use Test::More tests => 3;
270268}
271269EOF
272270 ' t/plus1.t' => <<'END' ,
273- #!/usr/bin/perl -w
271+ use strict;
272+ use warnings;
274273use Test::More tests => 2;
275274use_ok "XS::Test";
276275is XS::Test::plus1(3), 4;
366365 ' lib/XS/plus1.c' => $PLUS1_C ,
367366
368367 ' t/is_odd.t' => <<'END' ,
369- #!/usr/bin/perl -w
368+ use strict;
369+ use warnings;
370370use Test::More tests => 4;
371371use_ok "XS::Other";
372372ok is_odd(1);
@@ -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