[perl #65956] simple script that generated a memory fault.

[via RT]

# New Ticket Created by  Richard Hainsworth 
# Please include the string:  [perl #65956]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=65956 >


The following script (also attached) generated a Parrot memory fault.

I was trying to find a small script to generate a segfault I was getting 
with a more complex perl6 script.
It generated the following response:
Iteration 1
... (lines cut)
Iteration 147
Iteration 148
Parrot VM: PANIC: Out of mem!
C file src/gc/memory.c, line 142
Parrot file (not available), line (not available)

We highly suggest you notify the Parrot team if you have not been working on
Parrot.  Use parrotbug (located in parrot's root directory) or send an
e-mail to parrot-...@lists.parrot.org.
Include the entire text of this error message and the text of the script 
that
generated the error.  If you've made any modifications to Parrot, please
describe them as well.

Version     : 1.1.0-devel
Configured  : Mon May 18 18:41:44 2009 GMT
Architecture: i386-linux
JIT Capable : Yes
Interp Flags: (no interpreter)
Exceptions  : (missing from core)

Dumping Core...
Quit


<script>
my %x = ('A' X~ 0..200) Z (200..400);
my @z = (1 .. 201);

my %y;

my $count = 0;

loop {
    say "Iteration {++$count}";
    %y = foo1(%x,@z);
    %y = foo2(%x,@z);
    %y = foo3(%x,@z);
};

sub foo1(%a,@b) {
    my %b = map {; $^a => %a{$^a} + @b[$^b] }, (%a.keys Z 0..^ @b.elems);
    return %b;
};

sub foo2(%b,@c) {
    my %d = map {; $^a => %b{$^a} + @c[$^b] }, (%b.keys Z 0..^ @c.elems);
    return %d;
};

sub foo3(%d,@e) {
    my %f = map {; $^a => %d{$^a} + @e[$^b] }, (%d.keys Z 0..^ @e.elems);
    return %f;
};


#to get segmentation fault

my %x = ('A' X~ 0..200) Z (200..400);
my @z = (1 .. 201);

my %y;

my $count = 0;

loop {
        say "Iteration {++$count}";
        %y = foo1(%x,@z);
        %y = foo2(%x,@z);
        %y = foo3(%x,@z);
};

sub foo1(%a,@b) {
        my %b = map {; $^a => %a{$^a} + @b[$^b] }, (%a.keys Z 0..^ @b.elems);
        return %b;
};

sub foo2(%b,@c) {
        my %d = map {; $^a => %b{$^a} + @c[$^b] }, (%b.keys Z 0..^ @c.elems);
        return %d;
};

sub foo3(%d,@e) {
        my %f = map {; $^a => %d{$^a} + @e[$^b] }, (%d.keys Z 0..^ @e.elems);
        return %f;
};