| changeset 28 | df25c194e3ce |
| parent 25 | 984e6da93d95 |
| child 29 | 1ad7e54c3dc4 |
| 27:4516904df6b3 | 28:df25c194e3ce |
|---|---|
7 MAIN: { |
7 MAIN: { |
8 my $me8100 = new ME8100(@DEVICES); |
8 my $me8100 = new ME8100(@DEVICES); |
9 |
9 |
10 while (1) { |
10 while (1) { |
11 my @a = $me8100->read(); # should block |
11 my @a = $me8100->read(); # should block |
12 print "read: @a\n"; |
12 print "** <@a> **\n"; |
13 sleep(1000); |
|
13 } |
14 } |
14 |
15 |
15 } |
16 } |
16 |
17 |
17 # vim:sts=4 sw=4 aw ai sm: |
18 # vim:sts=4 sw=4 aw ai sm: |