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