diff options
| author | jluehrs2 <jluehrs2@uiuc.edu> | 2007-08-17 00:37:04 -0500 |
|---|---|---|
| committer | jluehrs2 <jluehrs2@uiuc.edu> | 2007-08-17 00:37:04 -0500 |
| commit | 00427f21f473e1976ab7852b31dc45bc04be07bb (patch) | |
| tree | f822914029c72bbb827b0fafd6596cf63a29fb07 | |
| parent | 3bb87925171ca8d1930040aa8687d8c005ae36e7 (diff) | |
| download | io-pty-easy-00427f21f473e1976ab7852b31dc45bc04be07bb.tar.gz io-pty-easy-00427f21f473e1976ab7852b31dc45bc04be07bb.zip | |
syswrite defaults to sending the whole string
| -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; } |