This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
MSWin32's "-x" checks file extension, so it isn't useful for exec-bit.t
authorGeorge Greer <perl@greerga.m-l.org>
Tue, 27 Jul 2010 03:02:40 +0000 (23:02 -0400)
committerGeorge Greer <perl@greerga.m-l.org>
Tue, 27 Jul 2010 03:02:40 +0000 (23:02 -0400)
t/porting/exec-bit.t

index aa09ac8..4c4bef9 100644 (file)
@@ -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');