Skip Menu |
Report information
Id: 132487
Status: open
Priority: 0/
Queue: perl6

Owner: Nobody
Requestors: curt [at] tilmes.org
Cc:
AdminCc:

Severity: (no value)
Tag: (no value)
Platform: (no value)
Patch Status: (no value)
VM: (no value)



Subject: Accessing the native-descriptor() from a Proc output seems to break it.
Date: Wed, 22 Nov 2017 14:26:30 -0500
From: Curt Tilmes <curt [...] tilmes.org>
To: rakudobug [...] perl.org
Download (untitled) / with headers
text/plain 256b
% perl6 -e 'my $proc = run "cat", :in, :out; $proc.in.say: "test\n"; say $proc.out.get; $proc.in.close;'
test

% perl6 -e 'my $proc = run "cat", :in, :out; say $proc.out.native-descriptor; $proc.in.say: "test\n"; say $proc.out.get; $proc.in.close;'
28
Nil

Some *able info, if anyone is interested:

Output on all releases: https://gist.github.com/a68b094519839b939f8c70d66a80d8c0

Some possibly relevant commits:
https://github.com/rakudo/rakudo/commit/92bd7e4f54a92fa660f99b4d056d33a08fb98bd2
https://github.com/rakudo/rakudo/commit/6dae179a8418bd2fcf5cc4b23e0feb3727c794a1

On 2017-11-22 11:26:59, curt@tilmes.org wrote:
> % perl6 -e 'my $proc = run "cat", :in, :out; $proc.in.say: "test\n"; say
> $proc.out.get; $proc.in.close;'
> test
>
> % perl6 -e 'my $proc = run "cat", :in, :out; say
> $proc.out.native-descriptor; $proc.in.say: "test\n"; say $proc.out.get;
> $proc.in.close;'
> 28
> Nil


 



This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

For issues related to this RT instance (aka "perlbug"), please contact perlbug-admin at perl.org