Make hash(foo=>2) work

sorear · Jun 29, 2011 · dadaada · dadaada
1 parent 4f237ff
commit dadaada
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/lib/CORE.setting b/lib/CORE.setting
@@ -709,7 +709,10 @@ my class IterCursor {
 }
 
 sub flat(*@x) { @x }
-sub hash(\|@x) { %(@x.unwrap-single) }
+sub hash(|$cap) {
+    (%$cap || $cap.Parcel.raw_elems != 1) ??
+        %( @$cap, %$cap ) !! %( $$cap )
+}
 
 my class Whatever {
     method ACCEPTS(Mu $x) { defined(self) || $x.^isa(Whatever) }

diff --git a/t/spectest.data b/t/spectest.data
@@ -59,7 +59,10 @@ S04-statement-modifiers/for.t
 S04-statement-modifiers/given.t
 S04-statement-modifiers/if.t
 S04-statement-modifiers/unless.t
+S04-statement-modifiers/until.t
 S04-statement-modifiers/values_in_bool_context.t
+S04-statement-modifiers/while.t
+S04-statement-parsing/hash.t
 S04-statements/do.t
 S04-statements/gather.t
 S04-statements/for-scope.t