… | … | ||
---|---|---|---|
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 |