From 00427f21f473e1976ab7852b31dc45bc04be07bb Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Fri, 17 Aug 2007 00:37:04 -0500
Subject: syswrite defaults to sending the whole string

---
 lib/IO/Pty/Easy.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

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;
 }
-- 
cgit v1.2.3-54-g00ecf