# New Ticket Created by  "Gerhard R." 
# Please include the string:  [perl #113666]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=113666 >


The regex-dna benchmark script (
https://github.com/perl6/perl6-examples/blob/master/shootout/regex-dna.p6.pl
) eats all available memory on 32-bit systems.

The issue can be golfed to

    my $string = 'x' x 30000;
    my @matches = $string.match(/./, :global);

Keeping around a transcoded version of the string for every match is
to blame according to analysis by jnthn and pmichaud:

    http://irclog.perlgeek.de/perl6/2012-06-01#i_5667563

(occurs with Rakudo 2012.05-237-geef772d, but hasn't been fixed in master yet)

Reply via email to