This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Confusing error from perl -e "x'"
authorHans Mulder <hansmu@xs4all.nl>
Wed, 25 Mar 1998 17:43:17 +0000 (12:43 -0500)
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>
Thu, 2 Apr 1998 15:55:46 +0000 (15:55 +0000)
p4raw-id: //depot/perl@853

toke.c

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;
                }