Browse files

[03-optable.t] worked around rakudobug

  • Loading branch information...
1 parent c2a3496 commit 99ee4358bf610aaf05a9bc032c869b5b10ed30dc @masak committed Apr 12, 2010
Showing with 2 additions and 1 deletion.
  1. +2 −1 t/03-optable.t
View
3 t/03-optable.t
@@ -31,7 +31,8 @@ for ['infix:+', precedence => '=' ],
['postcircumfix:( )', looser => 'term:', :nullterm, :nows ],
['postcircumfix:[ ]', equiv => 'postcircumfix:( )', :nows ]#,
# ['term:->', equiv => 'term:', :!skipkey, :parsed($arrow) ]
--> @args { my ($name, %opts) = @args; $optable.newtok($name, |%opts) }
+# RAKUDO: Can't list-assign to a hash without losing keys. [perl #74302]
+-> @args { my $name = @args[0]; my %opts = @args[1..@args-1]; $optable.newtok($name, |%opts) }
optable_output_is( 'a', 'term:a', 'Simple term' );
optable_output_is( 'a+b', 'infix:+(term:a, term:b)', 'Simple infix' );

0 comments on commit 99ee435

Please sign in to comment.