From 4469b61e3290813269678a16ba3508de086f6f0f Mon Sep 17 00:00:00 2001 From: doy Date: Tue, 3 Feb 2009 23:05:32 -0500 Subject: call new directly, not indirectly --- t/002-spawn.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 't/002-spawn.t') diff --git a/t/002-spawn.t b/t/002-spawn.t index ed0fd95..6924f85 100644 --- a/t/002-spawn.t +++ b/t/002-spawn.t @@ -4,7 +4,7 @@ use warnings; use Test::More tests => 5; use IO::Pty::Easy; -my $pty = new IO::Pty::Easy; +my $pty = IO::Pty::Easy->new; $pty->spawn("$^X -ple ''"); ok($pty->is_active, "spawning a subprocess"); ok($pty->kill(0, 1), "subprocess actually exists"); -- cgit v1.2.3-54-g00ecf