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


Consider:

BEGIN my %cache = 1 => 0;
sub foo($n) {%cache{$n}:exists}
say foo(42);

This runs successfully on MoarVM 2014.07-138-ga33da53, Both Parrot and JVM fail:

perl6-p:
This type cannot unbox to a native string
  in method exists_key at gen/parrot/CORE.setting:9194
  in method exists_key at gen/parrot/CORE.setting:9183
  in block  at gen/parrot/CORE.setting:2089
  in sub postcircumfix:<{ }> at gen/parrot/CORE.setting:2676
  in sub postcircumfix:<{ }> at gen/parrot/CORE.setting:2657
  in sub foo at tst.pl:2
  in block  at tst.pl:3

perl6-j:
This representation can not unbox to a native str
  in method exists_key at gen/jvm/CORE.setting:9202
  in block  at gen/jvm/CORE.setting:2085
  in sub postcircumfix:<{ }> at gen/jvm/CORE.setting:2671
  in sub foo at tst.pl:2
  in block  at tst.pl:3

The above is golfed from advent2012-day4.t, which has been failing over the 
last week, as have advent2011-day04.t and integration/advent2012-day21.t.

Reply via email to