diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-01-06 22:28:33 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-01-11 11:50:35 -0700 |
| commit | 80f4111be994e38b20d72125cb8851f563eeeba9 (patch) | |
| tree | 9ae26bf467c65bbf7843b05ac6d2f0c9d8e42997 /proto.h | |
| parent | b8de99caf269c77d01411e0f81d45f696af02dd2 (diff) | |
| download | perl-80f4111be994e38b20d72125cb8851f563eeeba9.tar.gz | |
Add optional strict mode to grok_bslash_[xo]
This mode croaks on any iffy constructs that currently compile. It is
not currently used; documentation of the error messages will be
delivered later.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -6756,7 +6756,7 @@ PERL_CALLCONV SV* Perl__core_swash_init(pTHX_ const char* pkg, const char* name, STATIC char S_grok_bslash_c(pTHX_ const char source, const bool utf8, const bool output_warning) __attribute__warn_unused_result__; -STATIC bool S_grok_bslash_o(pTHX_ char** s, UV* uv, const char** error_msg, const bool output_warning) +STATIC bool S_grok_bslash_o(pTHX_ char** s, UV* uv, const char** error_msg, const bool output_warning, const bool strict, const bool utf8) __attribute__warn_unused_result__ __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2) @@ -6764,7 +6764,7 @@ STATIC bool S_grok_bslash_o(pTHX_ char** s, UV* uv, const char** error_msg, cons #define PERL_ARGS_ASSERT_GROK_BSLASH_O \ assert(s); assert(uv); assert(error_msg) -PERL_STATIC_INLINE bool S_grok_bslash_x(pTHX_ char** s, UV* uv, const char** error_msg, const bool output_warning) +PERL_STATIC_INLINE bool S_grok_bslash_x(pTHX_ char** s, UV* uv, const char** error_msg, const bool output_warning, const bool strict, const bool utf8) __attribute__warn_unused_result__ __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2) |