From @moritz

The %*VM hash has the following structure

%*VM = (
  config => {
  '-Wcomment' => 1,
  '-Wall' => 1,
  # many more items here
  }
);

as can easily be seen by %*VM.perl, and $*VM.keys has one item. However
iterating over $*VM.kv shows more than one key​:

$ perl6 -e 'my $keys = 0; for %*VM.kv -> $k, $v { $keys++}; say $keys'
141

Somehow the inner hash is flattened. Using a normal hash I couldn't
reproduce
this behaviour.

Cheers,
Moritz

From @pmichaud

On Sun Jun 21 10​:44​:43 2009, moritz wrote​:

iterating over $*VM.kv shows more than one key​:

$ perl6 -e 'my $keys = 0; for %*VM.kv -> $k, $v { $keys++}; say $keys'
141

Somehow the inner hash is flattened. Using a normal hash I couldn't
reproduce
this behaviour.

Now fixed in 6c6299f​:

  $ ./perl6 -e 'my $keys = 0; for %*VM.kv -> $k, $v { $keys++}; say $keys'
  1

I'll pass this back to moritz++ to decide if this needs a spectest to
close the ticket.

Pm

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

From @kyleha

This is an automatically generated mail to inform you that tests are now available in t/spec/integration/real-strings.t

commit d975206783869d325cafb191330f961bc32019ac
Author​: moritz <moritz@​c213334d-75ef-0310-aa23-eaa082d1ae64>
Date​: Sat Sep 26 16​:38​:51 2009 +0000

  [t/spec] test for RT #​66818, %*VM behaving weirdly
 
  git-svn-id​: http://svn.pugscode.org/pugs@&#8203;28421 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/integration/real-strings.t b/t/spec/integration/real-strings.t
index a89f237..5b14597 100644
--- a/t/spec/integration/real-strings.t
+++ b/t/spec/integration/real-strings.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 10;
+plan 11;
 
 # Rakudo had a regression that
 # string returned from regexes were Parrot strings, not Perl 6 strings.
@@ -48,4 +48,12 @@ is "helo".lc.trans(("aeiou" => "AEIOU")),   'hElO', '.flip.trans (RT 66300)';
     is substtest("mop"), "map", '.subst works in a multi';
 }
 
+# not a "real string', but a "real hash" bug found in Rakudo:
+
+{
+    my $x = 0;
+    for %*VM.kv -> $k, $v { $x++};
+    is $x, +%*VM.keys, '%*VM.kv is self-consistent';
+}
+
 # vim: ft=perl6

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