# 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.
