This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Identify t/*/*.t test failing because of file permissions
[perl5.git] / t / TEST
diff --git a/t/TEST b/t/TEST
index ae43666..cae8103 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -51,6 +51,7 @@ while ($test = shift) {
     chop($te);
     print "$te" . '.' x (18 - length($te));
     if ($sharpbang) {
+       -x $test || (print "isn't executable.\n");
        open(RESULTS,"./$test |") || (print "can't run.\n");
     } else {
        open(SCRIPT,"$test") || die "Can't run $test.\n";