From 029d7083452d578ab264b9525e045d238187c511 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 6 Mar 2012 02:57:24 -0600
Subject: hardcoding -Ilib here is wrong

---
 t/extra-pty.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 't/extra-pty.t')

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): $!";
-- 
cgit v1.2.3-54-g00ecf