# 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 herealive»
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