summaryrefslogtreecommitdiffstats
path: root/t/002-spawn.t
diff options
context:
space:
mode:
Diffstat (limited to 't/002-spawn.t')
-rw-r--r--t/002-spawn.t2
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 ''");