From dvj@dagur.com

21​:51 <dagurval> r​: my @​a = ^512; my %b = @​a; my %c = eval %b.perl;
21​:51 <camelia> rakudo-jvm 874e35​:
OUTPUT«java.lang.IllegalArgumentException​: bad
  parameter count 259␤ in block at eval_0​:1␤ in sub eval at
  gen/jvm/CORE.setting​:684␤ in block at /tmp/0ovfYy8OzU​:1␤
in any
  eval at gen/jvm/stage2/NQPHLL.nqp​:1086␤ in any evalfiles at
  gen/jvm/stage2/NQP…»
21​:51 <camelia> ..rakudo-parrot 874e35​: ( no output )

Note that the output of %b.perl uses =>

Creating a large hash using , works.

From @coke

On Sun Dec 01 22​:30​:31 2013, dagur wrote​:

21​:51 <dagurval> r​: my @​a = ^512; my %b = @​a; my %c = eval %b.perl;
21​:51 <camelia> rakudo-jvm 874e35​:
OUTPUT«java.lang.IllegalArgumentException​: bad
parameter count 259␤ in block at eval_0​:1␤ in sub eval at
gen/jvm/CORE.setting​:684␤ in block at /tmp/0ovfYy8OzU​:1␤
in any
eval at gen/jvm/stage2/NQPHLL.nqp​:1086␤ in any evalfiles at
gen/jvm/stage2/NQP…»
21​:51 <camelia> ..rakudo-parrot 874e35​: ( no output )

Note that the output of %b.perl uses =>

Creating a large hash using , works.

Current behavior on the JVM is that this chews up 6.5 CPUs or so for at least 10s of minutes.

--
Will "Coke" Coleda

The RT System itself - Status changed from 'new' to 'open'

From @donaldh

I think this can be closed.

my @​a = ^500; my %b = @​a; my %c = EVAL('%b.perl')
Odd number of elements found where hash initializer expected
  in block at gen/jvm/CORE.setting​:11170

and

my @​a = ^500; my %b = @​a; my %c = EVAL('%b')

works just fine.

From @usev6

Hm, looks like I can reproduce the original problem with manually building a string and feeding it to EVAL​:

$ perl6-j -e 'my $foo; for ^512 -> $n, $k { $foo ~= "$n => $k, " }; $foo ~~ s/", "$//; my %c = EVAL($foo); say %c.elems'
java.lang.IllegalArgumentException​: bad parameter count 259
  in block <unit> at EVAL_0​:1
  in any <unit-outer> at EVAL_0​:1
  in sub EVAL at gen/jvm/CORE.setting​:782
  in block <unit> at -e​:1

As in the initial bug report there is no problem when I replace "=>" with ";"​:

$ perl6-j -e 'my $foo; for ^512 -> $n, $k { $foo ~= "$n, $k, " }; $foo ~~ s/", "$//; my %c = EVAL($foo); say %c.elems'
256

From @usev6

There is no InvalidArgumentException anymore. I've added a test to S32-hash/perl.6 with commit Raku/roast@bae1108d8f.

I'm closing this ticket as 'resolved'.

@usev6 - Status changed from 'open' to 'resolved'