properly diagnose missing assignop on s[]

perl6 · Oct 17, 2012 · bcb3aa6 · bcb3aa6
1 parent a426055
commit bcb3aa6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/STD.pm6 b/STD.pm6
@@ -2579,9 +2579,9 @@ grammar P6 is STD {
             <.ws>
             [ <?[ \[ \{ \( \< ]> <.obs('brackets around replacement', 'assignment syntax')> ]?
             [ <infixish> || <panic: "Missing assignment operator"> ]
-            [ <?{ $<infixish>.Str eq '=' || $<infixish>.<infix_postfix_meta_operator> }> || <.panic: "Malformed assignment operator"> ]
+            [ <?{ $<infixish>.Str eq '=' || $<infixish>.<infix_postfix_meta_operator> }>.Str eq '=' || <.panic: "Malformed assignment operator"> ]
             <.ws>
-            <right=EXPR(item %item_assignment)>
+            [ <right=EXPR(item %item_assignment)> || <.panic: "Assignment operator missing its expression"> ]
         || 
             { $lang = $lang2.unbalanced($stop); }
             <right=.nibble($lang)> $stop || <.panic: "Malformed replacement part; couldn't find final $stop">