From @MasterDuke17

This works like it should​:

perl6 -e 'my $p; try {$p = Proc​::Async.new("asdfcat", </path/to/file that
exists>); CATCH {die "in new"}}; my $pr; try {$pr = $p.start; CATCH {die
"in start"}}; try {await($pr); CATCH {die "in await"}}'
in await
  in block at -e line 1
  in block <unit> at -e line 1

This doesn't​:

perl6 -e 'my $p; try {$p = Proc​::Async.new(​:w, "asdfcat"); CATCH {die "in
new"}}; my $pr; try {$pr = $p.start; CATCH {die "in start"}}; try
{await($p.write("hi\n".encode)); CATCH {die "in write"}}; try
{$p.close-stdin; CATCH {die "in close"}}; try {await($pr); CATCH {die "in
await"}}'

From @zoffixznet

It's actually not throwing anything. The .write just seems to exit​:

$ perl6 -e 'my $p = Proc​::Async.new(​:w, "fdadsfdsafsd"); my $prom = $p.start; say "BEFORE"; say $p.write​: "meow".encode; say "AFTER"; say await $prom;'
BEFORE

I've seen this bug examined on IRC, but I don't see a ticket for it.

The RT System itself - Status changed from 'new' to 'open'

From @geekosaur

On Sun, Jul 3, 2016 at 10​:22 AM, Daniel Green <perl6-bugs-followup@​perl.org>
wrote​:

This doesn't​:

perl6 -e 'my $p; try {$p = Proc​::Async.new(​:w, "asdfcat"); CATCH {die "in
new"}}; my $pr; try {$pr = $p.start; CATCH {die "in start"}}; try
{await($p.write("hi\n".encode)); CATCH {die "in write"}}; try
{$p.close-stdin; CATCH {die "in close"}}; try {await($pr); CATCH {die "in
await"}}'

zsh​: exit 141
pyanfar Z$ grep $((141 - 128)) /usr/include/asm-generic/signal.h
#define SIGPIPE 13

I think I'd call that expected behavior.

--
brandon s allbery kf8nh sine nomine associates
allbery.b@​gmail.com ballbery@​sinenomine.net
unix, openafs, kerberos, infrastructure, xmonad http://sinenomine.net

From @jnthn

On Sun, 03 Jul 2016 07​:22​:09 -0700, ddgreen@​gmail.com wrote​:

This works like it should​:

perl6 -e 'my $p; try {$p = Proc​::Async.new("asdfcat", </path/to/file that
exists>); CATCH {die "in new"}}; my $pr; try {$pr = $p.start; CATCH {die
"in start"}}; try {await($pr); CATCH {die "in await"}}'
in await
in block at -e line 1
in block <unit> at -e line 1

This doesn't​:

perl6 -e 'my $p; try {$p = Proc​::Async.new(​:w, "asdfcat"); CATCH {die "in
new"}}; my $pr; try {$pr = $p.start; CATCH {die "in start"}}; try
{await($p.write("hi\n".encode)); CATCH {die "in write"}}; try
{$p.close-stdin; CATCH {die "in close"}}; try {await($pr); CATCH {die "in
await"}}'

Fixed and tested in S17-procasync/nonexistent.t. (The change is to default to ignoring SIGPIPE, since we error-check all operations anyway. Those who do want to exit on SIGPIPE can write `signal(SIGPIPE).tap​: { exit 1 }` or so.

@jnthn - Status changed from 'open' to 'resolved'

From @geekosaur

On Wed, Mar 8, 2017 at 11​:33 AM, jnthn@​jnthn.net via RT <
perl6-bugs-followup@​perl.org> wrote​:

Fixed and tested in S17-procasync/nonexistent.t. (The change is to default
to ignoring SIGPIPE, since we error-check all operations anyway. Those who
do want to exit on SIGPIPE can write `signal(SIGPIPE).tap​: { exit 1 }` or
so.

Hm. I'm going to guess this will interact badly with use as part of a shell
pipeline.

--
brandon s allbery kf8nh sine nomine associates
allbery.b@​gmail.com ballbery@​sinenomine.net
unix, openafs, kerberos, infrastructure, xmonad http://sinenomine.net