From 10ed5ca8a7d8b02d721bcfc0b47066a1c57b7f31 Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Fri, 17 Aug 2007 20:29:15 -0500
Subject: use the new kill() interface in the tests rather than the perl
 builtin

---
 t/002-spawn.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/002-spawn.t b/t/002-spawn.t
index c023857..ed0fd95 100644
--- a/t/002-spawn.t
+++ b/t/002-spawn.t
@@ -7,7 +7,7 @@ use IO::Pty::Easy;
 my $pty = new IO::Pty::Easy;
 $pty->spawn("$^X -ple ''");
 ok($pty->is_active, "spawning a subprocess");
-ok(kill(0 => $pty->{pid}), "subprocess actually exists");
+ok($pty->kill(0, 1), "subprocess actually exists");
 $pty->kill;
 ok(!$pty->is_active, "killing a subprocess");
 $pty->spawn("$^X -ple ''");
-- 
cgit v1.2.3-54-g00ecf