diff options
author | doy <doy@tozt.net> | 2009-02-03 23:05:32 -0500 |
---|---|---|
committer | doy <doy@tozt.net> | 2009-02-03 23:05:32 -0500 |
commit | 4469b61e3290813269678a16ba3508de086f6f0f (patch) | |
tree | 207676b5807d4f152203f77c8e7fca4d1391be03 /t/002-spawn.t | |
parent | e4edfa09f4414a55ed9bbaea09c0b04a7da689b1 (diff) | |
download | io-pty-easy-4469b61e3290813269678a16ba3508de086f6f0f.tar.gz io-pty-easy-4469b61e3290813269678a16ba3508de086f6f0f.zip |
call new directly, not indirectly0.04
Diffstat (limited to 't/002-spawn.t')
-rw-r--r-- | t/002-spawn.t | 2 |
1 files changed, 1 insertions, 1 deletions
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"); |