diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-11-18 22:03:04 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-11-18 22:03:04 -0800 |
| commit | 579333ee9e3b92774e120d958ee92fbc9a9fb009 (patch) | |
| tree | 4cee4f0e0e99ff6f91359c473b9a1bf425c4408d /proto.h | |
| parent | d3cd8e110d9ca180ad6cfb8eccb46fb165e3e28c (diff) | |
| download | perl-579333ee9e3b92774e120d958ee92fbc9a9fb009.tar.gz | |
Mention the variable name in the new length warnings
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -6742,9 +6742,6 @@ STATIC void S_utf8_mg_pos_cache_update(pTHX_ SV *const sv, MAGIC **const mgp, co #define PERL_ARGS_ASSERT_UTF8_MG_POS_CACHE_UPDATE \ assert(sv); assert(mgp) -STATIC SV * S_varname(pTHX_ const GV *const gv, const char gvtype, PADOFFSET targ, const SV *const keyname, I32 aindex, int subscript_type) - __attribute__warn_unused_result__; - STATIC I32 S_visit(pTHX_ SVFUNC_t f, const U32 flags, const U32 mask) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_VISIT \ @@ -6781,6 +6778,11 @@ STATIC void S_unreferenced_to_tmp_stack(pTHX_ AV *const unreferenced) # endif #endif +#if defined(PERL_IN_SV_C) || defined (PERL_IN_OP_C) +PERL_CALLCONV SV * Perl_varname(pTHX_ const GV *const gv, const char gvtype, PADOFFSET targ, const SV *const keyname, I32 aindex, int subscript_type) + __attribute__warn_unused_result__; + +#endif #if defined(PERL_IN_TOKE_C) STATIC int S_ao(pTHX_ int toketype); STATIC void S_check_uni(pTHX); |