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