From d48def2fc36aac1a0a9d9f19b09748c4eb3f14cd Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 14 Apr 2011 01:18:08 -0500
Subject: heh, make sure @INC is propagated into the subprocess properly

---
 t/01-basic.t      | 2 ++
 t/02-read-write.t | 2 ++
 2 files changed, 4 insertions(+)

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,
-- 
cgit v1.2.3