# New Ticket Created by "Kamil Kułaga"
# Please include the string: [perl #64886]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=64886 >
$ cat normal.pl; ./perl6 normal.pl
for (1..5){
say "b";
}
b
b
b
b
b
$ cat destroyer.p6; ./perl6 destroyer.p6
say "start";
my $flag=0;
for (1..10000000000){
say "never executed";
}
say "end";
start
end
$ ./perl6 --version
This is Rakudo Perl 6, revision 38208 built on parrot 1.0.0-devel
for i486-linux-gnu-thread-multi.
Copyright 2006-2008, The Perl Foundation.
updated a while ago
--
Pozdrawiam