This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix dist/base/t/*.t that assumed '.' in @INC
authorDavid Mitchell <davem@iabyn.com>
Fri, 7 Apr 2017 10:14:24 +0000 (11:14 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 7 Apr 2017 13:42:23 +0000 (14:42 +0100)
dist/base/t/base-open-chunk.t
dist/base/t/base-open-line.t

index ef6c25d..9bc707b 100644 (file)
@@ -7,7 +7,7 @@ $/ = \1;
 <$fh>;
 (my $test_file = $file) =~ s/-open-chunk//;
 
-unless (my $return = do $test_file) {
+unless (my $return = do "./$test_file") {
     warn "couldn't parse $test_file: $@" if $@;
     warn "couldn't do $test_file: $!"    unless defined $return;
     warn "couldn't run $test_file"       unless $return;
index ce6cf15..fa49ee7 100644 (file)
@@ -5,7 +5,7 @@ open my $fh, '<', $file or die "Can't open $file: $!";
 <$fh>;
 (my $test_file = $file) =~ s/-open-line//;
 
-unless (my $return = do $test_file) {
+unless (my $return = do "./$test_file") {
     warn "couldn't parse $test_file: $@" if $@;
     warn "couldn't do $test_file: $!"    unless defined $return;
     warn "couldn't run $test_file"       unless $return;