… | … | ||
---|---|---|---|
60 | print "result:\n", cf::dumpval @res > 1 ? \@res : $res[0] if @res; | 60 | print "result:\n", cf::dumpval @res > 1 ? \@res : $res[0] if @res; |
61 | print "\n> "; | 61 | print "\n> "; |
62 | }; | 62 | }; |
63 | 63 | ||
64 | if ($cmd =~ s/\s*&$//) { | 64 | if ($cmd =~ s/\s*&$//) { |
65 | Coro::async_pool { $sub->() }; | 65 | Coro::async { $sub->() }; |
66 | } else { | 66 | } else { |
67 | $sub->(); | 67 | $sub->(); |
68 | } | 68 | } |
69 | } | 69 | } |
70 | 70 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |