# New Ticket Created by Johnathan Swan
# Please include the string: [perl #75654]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=75654 >
Hi
I discovered this a few days ago when messing around. My program tried to a
create a list (" " .. " "), which I assumed would be equal to (" "). However
it actually created an infinite list and sat there. Trying to do say " " ..
" " runs out of memory after a while.
I went onto #perl6 and after a short chat, agreed to send a bug report. I
did try to do that, but I've just checked and I don't think it made it. So
sorry if this is a duplicate.
This was with the latest Rakudo pulled down from git. I've just updated and
rebuild and it still happens. I've also found it to happen with various
combinations involving whitespace and empty strings .
I've added some extra information below. From the chat on Perl 5, I think
this will be more than enough for you guys to identify the issues. However
feel free to ask for more information. I'm also happy to contribute some
tests, etc., if someone points me in the right direction.
Regards
Johnathan
== Here are some tests.
===The first ones return something straight away:
j...@arctic:~/dev/rakudo$ ./perl6 -e 'say "A" .. "Z"'
ABCDEFGHIJKLMNOPQRSTUVWXYZ
j...@arctic:~/dev/rakudo$ ./perl6 -e 'say "A" .. "A"'
A
j...@arctic:~/dev/rakudo$ ./perl6 -e 'say "A" .. " "'
j...@arctic:~/dev/rakudo$ ./perl6 -e 'say "A" .. ""'
j...@arctic:~/dev/rakudo$ ./perl6 -e 'say "A" .. "\t"'
j...@arctic:~/dev/rakudo$ ./perl6 -e 'say "something\t" .. "something "'
something
===These ones hang around for a long time (I didn't wait for them to run out
of memory this time):
j...@arctic:~/dev/rakudo$ ./perl6 -e 'say " " .. " "'
^C
j...@arctic:~/dev/rakudo$ ./perl6 -e 'say " " .. "A"'
^C
j...@arctic:~/dev/rakudo$ ./perl6 -e 'say "" .. ""'
^C
j...@arctic:~/dev/rakudo$ ./perl6 -e 'say "" .. "A"'
^C
j...@arctic:~/dev/rakudo$ ./perl6 -e 'say "\t" .. "A"'
^C
j...@arctic:~/dev/rakudo$ ./perl6 -e 'say "\t" .. "\t"'
^C
===The top of git log:
commit f50c35907a7d185cb4678c32914e9e0b6f631c05
Author: Jonathan Worthington <jn...@jnthn.net>
Date: Thu Jun 10 00:36:11 2010 +0200
When we write my ($x is rw) := 42, make sure that we don't try and
re-apply
