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 /embed.h | |
| parent | d3cd8e110d9ca180ad6cfb8eccb46fb165e3e28c (diff) | |
| download | perl-579333ee9e3b92774e120d958ee92fbc9a9fb009.tar.gz | |
Mention the variable name in the new length warnings
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1511,7 +1511,6 @@ #define uiv_2buf S_uiv_2buf #define utf8_mg_len_cache_update(a,b,c) S_utf8_mg_len_cache_update(aTHX_ a,b,c) #define utf8_mg_pos_cache_update(a,b,c,d,e) S_utf8_mg_pos_cache_update(aTHX_ a,b,c,d,e) -#define varname(a,b,c,d,e,f) S_varname(aTHX_ a,b,c,d,e,f) #define visit(a,b,c) S_visit(aTHX_ a,b,c) # if defined(PERL_OLD_COPY_ON_WRITE) #define sv_release_COW(a,b,c) S_sv_release_COW(aTHX_ a,b,c) @@ -1522,6 +1521,9 @@ #define unreferenced_to_tmp_stack(a) S_unreferenced_to_tmp_stack(aTHX_ a) # endif # endif +# if defined(PERL_IN_SV_C) || defined (PERL_IN_OP_C) +#define varname(a,b,c,d,e,f) Perl_varname(aTHX_ a,b,c,d,e,f) +# endif # if defined(PERL_IN_TOKE_C) #define ao(a) S_ao(aTHX_ a) #define check_uni() S_check_uni(aTHX) |