proper error message for usage of 'do...for'

https://rt.perl.org/rt3/Ticket/Display.html?id=102652
rakudo · Nov 21, 2012 · 41a92e8 · 41a92e8
1 parent bf472b0
commit 41a92e8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -837,7 +837,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
                     my $sp := $<EXPR><statement_prefix>;
                     if $sp && $sp<sym> eq 'do' {
                         my $s := $<statement_mod_loop>[0]<sym>;
-                        $/.CURSOR.obs("do..." ~ $s, "repeat..." ~ $s);
+                        $/.CURSOR.obs("do..." ~ $s, "repeat...while or repeat...until");
                     }
                 }
             ]?