diff options
author | Karl Williamson <public@khwilliamson.com> | 2013-01-13 13:33:22 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2013-01-14 09:05:08 -0700 |
commit | 5e0a247b35271159d629ea8562732e0993ed4594 (patch) | |
tree | 237cc7c1643119f444e1e8fe99354454e129f578 /proto.h | |
parent | 5a016e9bce6eb608ca967bcbb7eb953b81f13701 (diff) | |
download | perl-5e0a247b35271159d629ea8562732e0993ed4594.tar.gz |
Add warnings for "\08", /\017/
This was discussed in thread
http://perl.markmail.org/thread/avtzvtpzemvg2ki2
but I never got around to this portion of the consensus, until now.
I did a cpan grep
http://grep.cpan.me/?q=%28^|[^\\]%29\\[0-7]{1%2C2}[8-9]&page=1
and eyeballing the results, saw three cases where this warning might
show up; one of which was for EBCDIC. The others looked to be false
positives, such as in .css files.
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -6788,6 +6788,13 @@ PERL_CALLCONV SV* Perl__core_swash_init(pTHX_ const char* pkg, const char* name, #endif #if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_TOKE_C) +STATIC char* S_form_short_octal_warning(pTHX_ const char * const s, const STRLEN len) + __attribute__warn_unused_result__ + __attribute__pure__ + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT_FORM_SHORT_OCTAL_WARNING \ + assert(s) + STATIC char S_grok_bslash_c(pTHX_ const char source, const bool utf8, const bool output_warning) __attribute__warn_unused_result__; |