fix LTA unrec regex meta reported by moritz++

perl6 · May 12, 2011 · b9c20c5 · b9c20c5
1 parent 01c24ce
commit b9c20c5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/STD.pm6 b/STD.pm6
@@ -4779,7 +4779,7 @@ grammar Regex is STD {
                     }
                 }
             || $$ <.panic: "Regex not terminated">
-            || \W <.sorry: "Unrecognized regex metacharacter (must be quoted to match literally)">
+            || (\W) <.sorry: "Unrecognized regex metacharacter " ~ $0.Str ~ " (must be quoted to match literally)">
             || <.panic: "Regex not terminated">
             ]
         ]