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