diff options
| author | Hans Mulder <hansmu@xs4all.nl> | 1998-03-25 12:43:17 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-04-02 15:55:46 +0000 |
| commit | ec2ab091f034a27dfbd7d815fad4e3e670b743e9 (patch) | |
| tree | fe401b7bdd178c8ca6cffca31ea92838e636a308 | |
| parent | f9a26a8bc278e3c63fbdba45d0b02bb258cdbc4d (diff) | |
| download | perl-ec2ab091f034a27dfbd7d815fad4e3e670b743e9.tar.gz | |
Confusing error from perl -e "x'"
p4raw-id: //depot/perl@853
| -rw-r--r-- | toke.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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; } |