| … | … | ||
|---|---|---|---|
| 22 | print "ok 1\n"; | 22 | print "ok 1\n"; |
| 23 | EV::loop; | 23 | EV::loop; |
| 24 | print "ok 3\n"; | 24 | print "ok 3\n"; |
| 25 | 25 | ||
| 26 | syswrite $fh, "size change"; | 26 | syswrite $fh, "size change"; |
| 27 | undef $fh; # work around bugs in windows not updating stat info | ||
| 27 | 28 | ||
| 28 | my $t = EV::timer 0.2, 0, sub { | 29 | my $t = EV::timer 0.2, 0, sub { |
| 29 | print "no ok 5\n"; | 30 | print "no ok 5\n"; |
| 30 | EV::unloop; | 31 | EV::unloop; |
| 31 | }; | 32 | }; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |