use the new kill() interface in the tests rather than the perl builtin

1 files changed, 1 insertions, 1 deletions

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 ''");