[perl #129115] [BUG] loop doesn't allow the redeclaration of the symbol

[via RT]

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


See the following results.

$ perl6 -e 'loop (my $foo;0;){}; loop (my $foo;0;){}'
Potential difficulties:
    Redeclaration of symbol $foo
    at -e:1
    ------> loop (my $foo;0;){}; loop (my $foo?;0;){}

It looks weird for me, because in Perl 5 the equivalent command doesn't throw  
any exceptions.

$ perl -e 'for(my $foo;0;){}; for(my $foo;0;){}' # works fine



My Perl 6 version is
$ perl6 --version
This is Rakudo version 2016.07.1-199-gdd9b760 built on MoarVM version 
2016.07-17-g40948f6
implementing Perl 6.c.