| … | … | ||
|---|---|---|---|
| 13 | } | 13 | } |
| 14 | 14 | ||
| 15 | sub query { | 15 | sub query { |
| 16 | my ($ns, $flags, $text) = @_; | 16 | my ($ns, $flags, $text) = @_; |
| 17 | 17 | ||
| 18 | my $current = $Coro::current; | 18 | $ns->query ($flags, $text, Coro::rouse_cb); |
| 19 | $ns->query ($flags, $text, sub { $current->ready; $current = $_[0] }); | 19 | Coro::rouse_wait |
| 20 | Coro::schedule while ref $current; | ||
| 21 | |||
| 22 | $current | ||
| 23 | } | 20 | } |
| 24 | 21 | ||
| 25 | sub can_cleanup { | 22 | sub can_cleanup { |
| 26 | my ($pl, $mtime) = @_; | 23 | my ($pl, $mtime) = @_; |
| 27 | 24 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |