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