diff options
author | Karl Williamson <khw@cpan.org> | 2020-01-23 14:17:37 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-01-23 15:46:56 -0700 |
commit | 3b34e85be6e52776818bf176a474c628a4552cb3 (patch) | |
tree | 2af4ea251a1cdaf6f7a0827af84a12a7cd0ed119 /dquote.c | |
parent | 8d1e72f0f234299a86ddd5ce728d7cff6b44a547 (diff) | |
download | perl-3b34e85be6e52776818bf176a474c628a4552cb3.tar.gz |
Revise \o{ missing '}' error message
All the other messages raised when a construct is expecting a
terminating '}' but none is found include the '}' in the message. '\o{'
did not. Since these diagnostics are getting revised anyway, and I
didn't find any CPAN modules relying on the wording, this commit makes
the messages consistent by adding the '}' to the \o message.
Diffstat (limited to 'dquote.c')
-rw-r--r-- | dquote.c | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -297,7 +297,7 @@ Perl_grok_bslash_o(pTHX_ char **s, const char * const send, UV *uv, while (isOCTAL(**s)) { /* Position beyond the legal digits */ (*s)++; } - *message = "Missing right brace on \\o{"; + *message = "Missing right brace on \\o{}"; return FALSE; } @@ -459,9 +459,6 @@ Perl_grok_bslash_x(pTHX_ char ** s, const char * const send, UV *uv, while (*s < send && isXDIGIT(**s)) { /* Position beyond legal digits */ (*s)++; } - /* XXX The corresponding message above for \o is just '\\o{'; other - * messages for other constructs include the '}', so are inconsistent. - */ *message = "Missing right brace on \\x{}"; return FALSE; } |