add ｢...｣ as valid quoting inside regex as well

perl6 · Aug 13, 2012 · 235f71b · 235f71b
1 parent 7b5e4fb
commit 235f71b
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/STD.pm6 b/STD.pm6
@@ -5029,6 +5029,7 @@ grammar Regex is STD {
         <.SIGOK>
     }
 
+    token metachar:sym<｢ ｣> { <?before "｢"> [:lang(%*LANG<MAIN>) <quote>] <.SIGOK> }
     token metachar:sym<' '> { <?before "'"> [:lang(%*LANG<MAIN>) <quote>] <.SIGOK> }
     token metachar:sym<" "> { <?before '"'> [:lang(%*LANG<MAIN>) <quote>] <.SIGOK> }