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 /regcomp.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 'regcomp.c')
| -rw-r--r-- | regcomp.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -11277,7 +11277,8 @@ tryagain: FLAGS(ret) = get_regex_charset(RExC_flags); *flagp |= SIMPLE; if (! SIZE_ONLY && (U8) *(RExC_parse + 1) == '{') { - ckWARNdep(RExC_parse, "\"\\b{\" is deprecated; use \"\\b\\{\" or \"\\b[{]\" instead"); + /* diag_listed_as: Use "%s" instead of "%s" */ + vFAIL("Use \"\\b\\{\" instead of \"\\b{\""); } goto finish_meta_pat; case 'B': @@ -11291,7 +11292,8 @@ tryagain: FLAGS(ret) = get_regex_charset(RExC_flags); *flagp |= SIMPLE; if (! SIZE_ONLY && (U8) *(RExC_parse + 1) == '{') { - ckWARNdep(RExC_parse, "\"\\B{\" is deprecated; use \"\\B\\{\" or \"\\B[{]\" instead"); + /* diag_listed_as: Use "%s" instead of "%s" */ + vFAIL("Use \"\\B\\{\" instead of \"\\B{\""); } goto finish_meta_pat; |