equal
deleted
inserted
replaced
9 $SIG{IO} = sub { |
9 $SIG{IO} = sub { |
10 my $val; |
10 my $val; |
11 sysread(DEV, $val, 2); |
11 sysread(DEV, $val, 2); |
12 $val = unpack("s", $val); |
12 $val = unpack("s", $val); |
13 print "Hi, got a signal, read $val\n"; |
13 print "Hi, got a signal, read $val\n"; |
14 print "<", unpack("b16", pack("N", $val)), ">\n"; |
14 print "<", unpack("B16", pack("n", $val)), ">\n"; |
15 }; |
15 }; |
16 |
16 |
17 open(DEV, $DEV) |
17 open(DEV, $DEV) |
18 or die "Can't open $DEV: $!\n"; |
18 or die "Can't open $DEV: $!\n"; |
19 |
19 |