In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/48b7c1414cfcd97ff7e31cba045fab034bee9490?hp=3795add070c417abc47034ebff49945eaac4f6b5>
- Log ----------------------------------------------------------------- commit 48b7c1414cfcd97ff7e31cba045fab034bee9490 Author: George Greer <[email protected]> Date: Mon Jul 26 23:02:40 2010 -0400 MSWin32's "-x" checks file extension, so it isn't useful for exec-bit.t M t/porting/exec-bit.t commit 63dccf309ff0f6b8b18d015680b031eada62ee2e Author: George Greer <[email protected]> Date: Mon Jul 26 22:56:44 2010 -0400 Add filename with spurious +x bit to diag in t/porting/exec-bit.t This is for the benefit of smoke logs where the "not ok" aren't shown but the diag() output is. M t/porting/exec-bit.t ----------------------------------------------------------------------- Summary of changes: t/porting/exec-bit.t | 6 +++++- 1 files changed, 5 insertions(+), 1 deletions(-) diff --git a/t/porting/exec-bit.t b/t/porting/exec-bit.t index 7971ed7..4c4bef9 100644 --- a/t/porting/exec-bit.t +++ b/t/porting/exec-bit.t @@ -7,6 +7,10 @@ use strict; # the exe bit in the release tarball require './test.pl'; +if ($^O eq "MSWin32") { + diag( "-x on MSWin32 only indicates file has executable suffix. Try Cygwin?" ); + skip_all(); +} plan('no_plan'); @@ -33,7 +37,7 @@ for my $f ( @manifest ) { next unless -x "../$f"; ok( $exe_list{$f}, "tarball will chmod +x $f" ) - or diag( "Remove the exec bit or add to Porting/exec-bit.txt" ); + or diag( "Remove the exec bit or add '$f' to Porting/exec-bit.txt" ); delete $exe_list{$f}; # seen it } -- Perl5 Master Repository
