diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-04-14 01:18:08 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-04-14 01:18:08 -0500 |
commit | d48def2fc36aac1a0a9d9f19b09748c4eb3f14cd (patch) | |
tree | 9d8854e8fb0e8982feaf7677c0556d2fa2463aaf | |
parent | 2a98b4ece0b65405252da1ed51832c9497f4d8ad (diff) | |
download | app-termcast-d48def2fc36aac1a0a9d9f19b09748c4eb3f14cd.tar.gz app-termcast-d48def2fc36aac1a0a9d9f19b09748c4eb3f14cd.zip |
heh, make sure @INC is propagated into the subprocess properly
-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, |