diff options
| -rw-r--r-- | lib/IO/Pty/Easy.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/IO/Pty/Easy.pm b/lib/IO/Pty/Easy.pm index 75a6950..d2ab72e 100644 --- a/lib/IO/Pty/Easy.pm +++ b/lib/IO/Pty/Easy.pm @@ -231,7 +231,7 @@ sub write { my $nfound = select(undef, $win, undef, $timeout); my $nchars; if ($nfound > 0) { - $nchars = syswrite($self->{pty}, $text, length $text); + $nchars = syswrite($self->{pty}, $text); } return $nchars; } |