[PROBES] Use modern hash iteration semantics properly in %hash.kv

parrot · Nov 9, 2009 · abc6bc0 · abc6bc0
1 parent c980976
commit abc6bc0
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/probes/hash-kv.nqp b/probes/hash-kv.nqp
@@ -5,11 +5,12 @@
 # TO USE:
 #   $ nqp hash-kv.nqp
 
-# Hash.kv by pmichaud++ in http://nopaste.snit.ch/18559
+# Original Hash.kv by pmichaud++ in http://nopaste.snit.ch/18559;
+# updated to handle new-style hash iteration semantics
 module Hash {
     method kv () {
         my @kv;
-        for self { @kv.push($_); @kv.push(self{$_}); }
+        for self { @kv.push($_.key); @kv.push($_.value); }
         @kv;
     }
 }
@@ -21,5 +22,5 @@ my %hash;
 %hash<c> := 3;
 
 for %hash.kv -> $k, $v {
-    say(~$k ~ "\t" ~ $v);
+    say($k ~ "\t" ~ $v);
 }