… | … | ||
---|---|---|---|
563 | $ww ||= AE::io $fh, 1, $wcb; | 563 | $ww ||= AE::io $fh, 1, $wcb; |
564 | }); | 564 | }); |
565 | 565 | ||
566 | my $guard = Guard::guard { | 566 | my $guard = Guard::guard { |
567 | $shutdown = 1; | 567 | $shutdown = 1; |
568 | $ww ||= $fh && AE::io $fh, 1, $wcb; | 568 | |
569 | $wcb->() if $fh && !$ww; | ||
569 | }; | 570 | }; |
570 | 571 | ||
571 | my $id; | 572 | my $id; |
572 | 573 | ||
573 | $arg{async} | 574 | $arg{async} |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |