diff options
-rw-r--r-- | t/01-basic.t | 2 | ||||
-rw-r--r-- | t/02-read-write.t | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/t/01-basic.t b/t/01-basic.t index ea2ae54..73e0c26 100644 --- a/t/01-basic.t +++ b/t/01-basic.t @@ -13,7 +13,9 @@ BEGIN { test_tcp( client => sub { my $port = shift; + my $inc = join ':', grep { !ref } @INC; my $client_script = <<EOF; + BEGIN { \@INC = split /:/, '$inc' } use App::Termcast; my \$tc = App::Termcast->new(host => '127.0.0.1', port => $port, user => 'test', password => 'tset'); diff --git a/t/02-read-write.t b/t/02-read-write.t index a30fce4..4493873 100644 --- a/t/02-read-write.t +++ b/t/02-read-write.t @@ -13,7 +13,9 @@ BEGIN { test_tcp( client => sub { my $port = shift; + my $inc = join ':', grep { !ref } @INC; my $client_script = <<EOF; + BEGIN { \@INC = split /:/, '$inc' } use App::Termcast; my \$tc = App::Termcast->new( host => '127.0.0.1', port => $port, |