| … | … | ||
|---|---|---|---|
| 65 | print "result:\n", cf::dumpval @res > 1 ? \@res : $res[0] if @res; | 65 | print "result:\n", cf::dumpval @res > 1 ? \@res : $res[0] if @res; |
| 66 | print "\n> "; | 66 | print "\n> "; |
| 67 | }; | 67 | }; |
| 68 | 68 | ||
| 69 | if ($cmd =~ s/\s*&$//) { | 69 | if ($cmd =~ s/\s*&$//) { |
| 70 | Coro::async { $sub->() }; | 70 | cf::async { |
| 71 | $Coro::current->desc ($cmd); | ||
| 72 | $sub->() | ||
| 73 | }; | ||
| 71 | } else { | 74 | } else { |
| 72 | $sub->(); | 75 | $sub->(); |
| 73 | } | 76 | } |
| 74 | } | 77 | } |
| 75 | 78 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |