# New Ticket Created by Aleks-Daniel Jakimenko-Aleksejev # Please include the string: [perl #132289] # in the subject line of all future correspondence about this issue. # <URL: https://rt.perl.org/Ticket/Display.html?id=132289 >
Code: my $a = Proc::Async.new(<doesnt exist>); $a.stdout.tap(-> $a {}); $a.stderr.tap(-> $a {}); if (await $a.start).exitcode { say "oops"} else { say "ok"} ¦«2015.12»: no such file or directory in block <unit> at /home/bisectable/git/whateverable/data/regressionable/15215457/snippet line 1 «exit code = 1» ¦«2016.06»: no such file or directory in block <unit> at /home/bisectable/git/whateverable/data/regressionable/15215457/snippet line 1 «exit code = 1» ¦«2016.12»: ===SORRY!=== no such file or directory «exit code = 1» ¦«2017.06»: Unhandled exception in code scheduled on thread 3 no such file or directory «exit code = 1» ¦«f72be0f130cf»: Unhandled exception in code scheduled on thread 4 no such file or directory «exit code = 1» Possible IRC discussion: https://irclog.perlgeek.de/perl6/2017-09-26#i_15215457 If we can print “in block <unit> at … line 1” then we definitely should. And we probably can, judging by the output on 2015.12.