diff options
Diffstat (limited to 'gnu/usr.bin/perl/t/lib/common.pl')
| -rw-r--r-- | gnu/usr.bin/perl/t/lib/common.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/t/lib/common.pl b/gnu/usr.bin/perl/t/lib/common.pl index 367c676d516..9c7060ff38c 100644 --- a/gnu/usr.bin/perl/t/lib/common.pl +++ b/gnu/usr.bin/perl/t/lib/common.pl @@ -27,7 +27,12 @@ if (@ARGV) { print "ARGV = [@ARGV]\n"; @w_files = map { "./lib/$pragma_name/$_" } @ARGV; } else { - @w_files = sort glob catfile(curdir(), "lib", $pragma_name, "*"); + @w_files = sort grep !/( \.rej | ~ | \ \(Autosaved\)\.txt ) \z/nx, + glob catfile(curdir(), "lib", $pragma_name, "*"); +} + +if ($::IS_EBCDIC) { # Skip Latin1 files + @w_files = grep { $_ !~ / _l1 $/x } @w_files } my ($tests, @prgs) = setup_multiple_progs(@w_files); |