diff options
| author | Karl Williamson <public@khwilliamson.com> | 2014-02-05 22:06:02 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2014-02-05 22:17:56 -0700 |
| commit | 32d028130217347dcbe6859b420b505b89a30d9d (patch) | |
| tree | 0e3af9e55a6d64bb1bff2b68416294160245f115 /dquote_static.c | |
| parent | 9b8f4e9212208b42402a7e6c029025cc8a6ae4db (diff) | |
| download | perl-32d028130217347dcbe6859b420b505b89a30d9d.tar.gz | |
Make a literal "{" fatal after \b and \B in regexes
These have been deprecated since v5.14.
Diffstat (limited to 'dquote_static.c')
| -rw-r--r-- | dquote_static.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/dquote_static.c b/dquote_static.c index 4eaa4b1089..bb1bd4a565 100644 --- a/dquote_static.c +++ b/dquote_static.c @@ -63,6 +63,8 @@ S_grok_bslash_c(pTHX_ const char source, const bool output_warning) } else if (source == '{') { assert(isPRINT_A(toCTRL('{'))); + + /* diag_listed_as: Use "%s" instead of "%s" */ Perl_croak(aTHX_ "Use \"%c\" instead of \"\\c{\"", toCTRL('{')); } |