Skip to content
Permalink
Browse files

Make m-spectest5_precompile skip runnings files that contain a 'use lib'

  • Loading branch information...
pmurias committed Jan 16, 2019
1 parent 89fee86 commit ec289a6c579be677530a764182d937bed68e7789
Showing with 12 additions and 0 deletions.
  1. +12 −0 t/harness5
@@ -85,6 +85,18 @@ if ($list_file) {
my @tfiles = $randomize
? shuffle map { all_in($_) } @files
: map { all_in($_) } sort @files;

if ($precompile) {
@tfiles = grep {
my $seen_use_lib = 0;
open(my $fh, '<', $_);
while (my $line = <$fh>) {
$seen_use_lib = 1 if $line =~ /^\s*use lib/;
}
!$seen_use_lib;
} @tfiles;
}

if (@slow) {
@slow = map { all_in($_) } @slow;

0 comments on commit ec289a6

Please sign in to comment.
You can’t perform that action at this time.