From: Hans Mulder <hansmu@xs4all.nl>
Date: Wed, 25 Mar 1998 17:43:17 +0000 (-0500)
Subject: Confusing error from perl -e "x'"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ec2ab091f034a27dfbd7d815fad4e3e670b743e9;p=p5sagit%2Fp5-mst-13.2.git

Confusing error from perl -e "x'"

p4raw-id: //depot/perl@853
---

diff --git a/toke.c b/toke.c
index 39382c9..5605938 100644
--- 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;
 		}