Author: jonathan Date: Tue Jan 6 10:13:03 2009 New Revision: 35058 Modified: branches/rvar/languages/perl6/src/parser/actions.pm branches/rvar/languages/perl6/src/parser/grammar.pg Log: [rakudo] Use capture rather than substr for detecting ;;. Modified: branches/rvar/languages/perl6/src/parser/actions.pm ============================================================================== --- branches/rvar/languages/perl6/src/parser/actions.pm (original) +++ branches/rvar/languages/perl6/src/parser/actions.pm Tue Jan 6 10:13:03 2009 @@ -969,7 +969,7 @@ $sigparam.push(PAST::Val.new(:value($readtype),:named('readtype'))); $sigparam.push(PAST::Val.new(:value($multi_inv),:named('multi_invocant'))); - if substr($<param_sep>[$i], 0, 2) eq ';;' { $multi_inv := 0; } + if $<param_sep>[$i][0] eq ';;' { $multi_inv := 0; } $loadinit.push($sigparam); $i++; Modified: branches/rvar/languages/perl6/src/parser/grammar.pg ============================================================================== --- branches/rvar/languages/perl6/src/parser/grammar.pg (original) +++ branches/rvar/languages/perl6/src/parser/grammar.pg Tue Jan 6 10:13:03 2009 @@ -426,7 +426,7 @@ ':(' ~ ')' <signature> {*} } -rule param_sep { [','|':'|';;'|';'] } +rule param_sep { (','|':'|';;'|';') } token signature { {*} #= open