From 963d7a69de2d76cb0bf66132990723fbc7dfe23e Mon Sep 17 00:00:00 2001
From: Mariano Alvira <mar@devl.org>
Date: Sat, 9 May 2009 15:43:22 -0400
Subject: [PATCH] don't hose the cpu by using read instead of input

---
 mc1322x-load.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/mc1322x-load.pl b/mc1322x-load.pl
index 8bd2b8b5b..45c13b3a8 100755
--- a/mc1322x-load.pl
+++ b/mc1322x-load.pl
@@ -110,8 +110,10 @@ print ",\n";
 $ob->write(@ARGV);
 $ob->write(',');
 
+my $c; my $count;
 while(1) {
-    print $ob->input;
+    ($count, $c) = $ob->read(1);
+    print $c if ($count != 0);
 }
 
 $ob -> close or die "Close failed: $!\n";