aligned error message with STD's

perl6 · May 30, 2010 · 45a6612 · 45a6612
1 parent d1d1d31
commit 45a6612
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Regex/P6Regex/Actions.pm b/src/Regex/P6Regex/Actions.pm
@@ -76,7 +76,7 @@ method termish($/) {
 method quantified_atom($/) {
     my $past := $<atom>.ast;
     if $<quantifier> {
-        if !$past { $/.CURSOR.panic("Can't quantify zero-width atom"); }
+        if !$past { $/.CURSOR.panic("Quantifier follows nothing"); }
         my $qast := $<quantifier>[0].ast;
         $qast.unshift($past);
         $past := $qast;