--- a/me8100_test_perl/test.pl Sat Jan 26 18:02:03 2002 +0100
+++ b/me8100_test_perl/test.pl Sat Jan 26 19:46:15 2002 +0100
@@ -9,7 +9,8 @@
while (1) {
my @a = $me8100->read(); # should block
- print "read: @a\n";
+ print "** <@a> **\n";
+ sleep(1000);
}
}