This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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) {
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";
open(RESULTS,"./$test |") || (print "can't run.\n");
} else {
open(SCRIPT,"$test") || die "Can't run $test.\n";