| … | |
… | |
| 35 | sysseek $pwd, 7, 0; |
35 | sysseek $pwd, 7, 0; |
| 36 | sysread $pwd, $sysread, 15; |
36 | sysread $pwd, $sysread, 15; |
| 37 | |
37 | |
| 38 | # I found no way to silence the stupid "uninitialized...subroutine entry" warning. |
38 | # I found no way to silence the stupid "uninitialized...subroutine entry" warning. |
| 39 | # this is just braindamaged. Don't use -w, it introduces more bugs than it fixes. |
39 | # this is just braindamaged. Don't use -w, it introduces more bugs than it fixes. |
| 40 | $aioread = "xxx"; |
40 | $aioread = "xxxyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy"; |
| 41 | |
41 | |
| 42 | aio_read $pwd, 7, 15, $aioread, 3, sub { |
42 | aio_read $pwd, 7, 15, $aioread, 3, sub { |
| 43 | print +($aioread eq "xxx$sysread") ? "ok" : "not ok", " 2\n"; |
43 | print +($aioread eq "xxx$sysread") ? "ok" : "not ok", " 2\n"; |
| 44 | }; |
44 | }; |
| 45 | |
45 | |
