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/003-subprocess.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/003-subprocess.t')
-rw-r--r-- | t/003-subprocess.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/003-subprocess.t b/t/003-subprocess.t index 352b7b4..cc87025 100644 --- a/t/003-subprocess.t +++ b/t/003-subprocess.t @@ -4,7 +4,7 @@ use warnings; use Test::More tests => 2; use IO::Pty::Easy; -my $pty = new IO::Pty::Easy; +my $pty = IO::Pty::Easy->new; my $script = << 'EOF'; $| = 1; if (-t *STDIN && -t *STDOUT) { print "ok" } |