Confusing error from perl -e "x'"

p4raw-id: //depot/perl@853

diff --git a/toke.c b/toke.c
index 39382c9..5605938 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -2848,7 +2848,8 @@ yylex(void)
                    s = scan_word(s, tokenbuf + len, sizeof tokenbuf - len,
                                  TRUE, &morelen);
                    if (!morelen)
-                       croak("Bad name after %s::", tokenbuf);
+                       croak("Bad name after %s%s", tokenbuf,
+                               *s == '\'' ? "'" : "::");
                    len += morelen;
                }