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

Owner: Nobody
Requestors: ajs <ajs [at] ajs.com>
Cc:
AdminCc:

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



From: Aaron Sherman <ajs [...] ajs.com>
Subject: rakudo for loop on texas bag operator spawns background IO
To: rakudobug [...] perl.org
Date: Wed, 27 Jul 2016 10:38:29 -0400

Was playing around on command-line with hyperoperations over texas bag operators and got to this silly thing:

perl6 -e 'for 1..100 -> $i { say (((^$i).map: {^$_}) <<(-)>> ((^($i+1)).map: {$_ xx $i})) }'

Which, after control-Cing backgrounded itself and kept spewing output. I've limited the example to 100 outer loops, but my original was 1..*, which I had to kill.

Somewhat strange platform:

$ perl6 -v
This is Rakudo version 2016.04 built on MoarVM version 2016.04
implementing Perl 6.c.
$ uname -a
CYGWIN_NT-10.0-WOW hiostname.0.4(0.287/5/3) 2015-08-03 00:00 i686 GNU/Linux

The Perl 6 version is the standard Windows build from Rakudo Star

However, on this platform and build it works fine:

$ perl6 -v
This is Rakudo version 2016.07.1-34-ge5c909c built on MoarVM version 2016.07-3-gc01472d
implementing Perl 6.c.
$ uname -a
Linux vdesktop2 4.4.0-31-generic #50-Ubuntu SMP Wed Jul 13 00:07:12 UTC 2016 x86_64 x86_64 x86_64 GNU/Linux



--
Aaron Sherman, M.:
P: 617-440-4332 Google Talk, Email and Google Plus: ajs@ajs.com
Toolsmith, developer, gamer and life-long student.

RT-Send-CC: perl6-compiler [...] perl.org
Download (untitled) / with headers
text/plain 1.4k
On Wed Jul 27 07:38:45 2016, ajs wrote: Show quoted text
> Was playing around on command-line with hyperoperations over texas bag > operators and got to this silly thing: > > perl6 -e 'for 1..100 -> $i { say (((^$i).map: {^$_}) <<(-)>> > ((^($i+1)).map: {$_ xx $i})) }' > > Which, after control-Cing backgrounded itself and kept spewing output. I've > limited the example to 100 outer loops, but my original was 1..*, which I > had to kill. > > Somewhat strange platform: > > $ perl6 -v > This is Rakudo version 2016.04 built on MoarVM version 2016.04 > implementing Perl 6.c. > $ uname -a > CYGWIN_NT-10.0-WOW hiostname.0.4(0.287/5/3) 2015-08-03 00:00 i686 GNU/Linux > > The Perl 6 version is the standard Windows build from Rakudo Star > > However, on this platform and build it works fine: > > $ perl6 -v > This is Rakudo version 2016.07.1-34-ge5c909c built on MoarVM version > 2016.07-3-gc01472d > implementing Perl 6.c. > $ uname -a > Linux vdesktop2 4.4.0-31-generic #50-Ubuntu SMP Wed Jul 13 00:07:12 UTC > 2016 x86_64 x86_64 x86_64 GNU/Linux > > > > -- > Aaron Sherman, M.: > P: 617-440-4332 Google Talk, Email and Google Plus: ajs@ajs.com > Toolsmith, developer, gamer and life-long student.
Cannot reproduce here: $ perl6 -v This is Rakudo version 2016.07.1 built on MoarVM version 2016.07 implementing Perl 6.c. $ sw_vers ProductName: Mac OS X ProductVersion: 10.11.6 BuildVersion: 15G31 Hitting Control-C kills the job, that's it, no spurious output. -- Will "Coke" Coleda
Date: Wed, 27 Jul 2016 14:18:00 -0400
CC: perl6-compiler <perl6-compiler [...] perl.org>
Subject: Re: [perl #128751] rakudo for loop on texas bag operator spawns background IO
From: Brandon Allbery <allbery.b [...] gmail.com>
To: Carl Mäsak via RT <perl6-bugs-followup [...] perl.org>
Download (untitled) / with headers
text/plain 1.9k
Note that there's a high probability of this being a cygwin-specific issue.

On Wed, Jul 27, 2016 at 11:24 AM, Will Coleda via RT <perl6-bugs-followup@perl.org> wrote:
Show quoted text
On Wed Jul 27 07:38:45 2016, ajs wrote:
> Was playing around on command-line with hyperoperations over texas bag
> operators and got to this silly thing:
>
> perl6 -e 'for 1..100 -> $i { say (((^$i).map: {^$_}) <<(-)>>
> ((^($i+1)).map: {$_ xx $i})) }'
>
> Which, after control-Cing backgrounded itself and kept spewing output. I've
> limited the example to 100 outer loops, but my original was 1..*, which I
> had to kill.
>
> Somewhat strange platform:
>
> $ perl6 -v
> This is Rakudo version 2016.04 built on MoarVM version 2016.04
> implementing Perl 6.c.
> $ uname -a
> CYGWIN_NT-10.0-WOW hiostname.0.4(0.287/5/3) 2015-08-03 00:00 i686 GNU/Linux
>
> The Perl 6 version is the standard Windows build from Rakudo Star
>
> However, on this platform and build it works fine:
>
> $ perl6 -v
> This is Rakudo version 2016.07.1-34-ge5c909c built on MoarVM version
> 2016.07-3-gc01472d
> implementing Perl 6.c.
> $ uname -a
> Linux vdesktop2 4.4.0-31-generic #50-Ubuntu SMP Wed Jul 13 00:07:12 UTC
> 2016 x86_64 x86_64 x86_64 GNU/Linux
>
>
>
> --
> Aaron Sherman, M.:
> P: 617-440-4332 Google Talk, Email and Google Plus: ajs@ajs.com
> Toolsmith, developer, gamer and life-long student.

Cannot reproduce here:

$ perl6 -v
This is Rakudo version 2016.07.1 built on MoarVM version 2016.07
implementing Perl 6.c.
$ sw_vers
ProductName:    Mac OS X
ProductVersion: 10.11.6
BuildVersion:   15G31

Hitting Control-C kills the job, that's it, no spurious output.

--
Will "Coke" Coleda



--
brandon s allbery kf8nh                               sine nomine associates
allbery.b@gmail.com                                  ballbery@sinenomine.net
unix, openafs, kerberos, infrastructure, xmonad        http://sinenomine.net
Download (untitled) / with headers
text/plain 293b
I was asked to try this with .07. I did that tonight, and it still happens, but this does seem to be a local issue. I get the same results with: perl6 -e 'loop { say 1; sleep 1; }' Is it possible that Perl is ignoring something like the Windows equivalent of a hangup signal from the shell?


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