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


EXAMPLE:
my %hash = foo => 1;
if %hash<a>:exists {
say "not gonna print this";
}
my $key = 'b';
if %hash«$key»:exists {
say "why i'm here";
}

OUTPUT:
why i'm here

EXPECTED RESULT:
(Should not print anything)

FROM #perl6 CHANNEL:
14:09 < masak> m: my %hash = foo => 1; my $key = 'b'; if
%hash«$key»:exists { say "why i'm here" }; say "alive"
14:09 <+camelia> rakudo-moar 80e0bc: OUTPUT: «why i'm here␤alive␤»
14:09 < masak> huh.
14:10 < masak> I... I call bug.
14:10 < masak> m: my %hash = foo => 1; my $key = 'b'; if
%hash«$key»:exists { say "why i'm here" }; say %hash.perl
14:10 <+camelia> rakudo-moar 80e0bc: OUTPUT: «why i'm here␤{:foo(1)}␤»

VERSION INFORMATION
$ perl6 -v
This is Rakudo version 2017.01 built on MoarVM version 2017.01
implementing Perl 6.c.

$ uname -a
Linux xprs 4.9.9-1-macbook #1 SMP PREEMPT Mon Feb 13 17:07:28 EET 2017 x86_64 
GNU/Linux

Best regards,


--
Jarkko

Reply via email to