improve message on s{foo}{bar}

perl6 · Feb 5, 2011 · 29e9ef5 · 29e9ef5
1 parent c4ade8e
commit 29e9ef5
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/STD.pm6 b/STD.pm6
@@ -2496,6 +2496,7 @@ grammar P6 is STD {
         $start <left=.nibble($lang)> [ $stop || <.panic: "Couldn't find terminator $stop"> ]
         [ <?{ $start ne $stop }>
             <.ws>
+            [ <?[ \[ \{ \( \< ]> <.obs('brackets around replacement', 'assignment syntax')> ]?
             [ <infixish> || <panic: "Missing assignment operator"> ]
             [ <?{ $<infixish>.Str eq '=' || $<infixish>.<infix_postfix_meta_operator> }> || <.panic: "Malformed assignment operator"> ]
             <.ws>