From 029d7083452d578ab264b9525e045d238187c511 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 6 Mar 2012 02:57:24 -0600 Subject: hardcoding -Ilib here is wrong --- t/basic.t | 2 +- t/callbacks.t | 2 +- t/extra-pty.t | 2 +- t/role.t | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) (limited to 't') diff --git a/t/basic.t b/t/basic.t index 0df6495..13e77f3 100644 --- a/t/basic.t +++ b/t/basic.t @@ -18,7 +18,7 @@ SCRIPT my $crlf = "\x0d\x0a"; -$pty->spawn($^X, '-Ilib', '-e', $script); +$pty->spawn($^X, (map { "-I $_" } @INC), '-e', $script); # just in case alarm 60; diff --git a/t/callbacks.t b/t/callbacks.t index 5197b32..cb99c18 100644 --- a/t/callbacks.t +++ b/t/callbacks.t @@ -49,7 +49,7 @@ alarm 60; { my $pty = IO::Pty::Easy->new(handle_pty_size => 0); - $pty->spawn($^X, '-Ilib', '-e', $script); + $pty->spawn($^X, (map { "-I $_" } @INC), '-e', $script); my $setup_str = full_read($pty); diff --git a/t/extra-pty.t b/t/extra-pty.t index d9d73da..d2e013a 100644 --- a/t/extra-pty.t +++ b/t/extra-pty.t @@ -70,7 +70,7 @@ alarm 60; { my $pty = IO::Pty::Easy->new(handle_pty_size => 0); - $pty->spawn($^X, '-Ilib', '-e', $script); + $pty->spawn($^X, (map { "-I $_" } @INC), '-e', $script); open my $readfh, '>', $readp or die "can't open pipe (parent): $!"; diff --git a/t/role.t b/t/role.t index 824a14b..e8e9806 100644 --- a/t/role.t +++ b/t/role.t @@ -58,7 +58,7 @@ alarm 60; { my $pty = IO::Pty::Easy->new(handle_pty_size => 0); - $pty->spawn($^X, '-Ilib', '-e', $script); + $pty->spawn($^X, (map { "-I $_" } @INC), '-e', $script); my $setup_str = full_read($pty); -- cgit v1.2.3-54-g00ecf