summaryrefslogtreecommitdiff
path: root/embed.fnc
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2011-11-18 22:03:04 -0800
committerFather Chrysostomos <sprout@cpan.org>2011-11-18 22:03:04 -0800
commit579333ee9e3b92774e120d958ee92fbc9a9fb009 (patch)
tree4cee4f0e0e99ff6f91359c473b9a1bf425c4408d /embed.fnc
parentd3cd8e110d9ca180ad6cfb8eccb46fb165e3e28c (diff)
downloadperl-579333ee9e3b92774e120d958ee92fbc9a9fb009.tar.gz
Mention the variable name in the new length warnings
Diffstat (limited to 'embed.fnc')
-rw-r--r--embed.fnc9
1 files changed, 6 insertions, 3 deletions
diff --git a/embed.fnc b/embed.fnc
index 0857dd8e92..fb93b939c7 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1975,15 +1975,18 @@ po |void |sv_add_backref |NN SV *const tsv|NN SV *const sv
poM |void |sv_kill_backrefs |NN SV *const sv|NULLOK AV *const av
#endif
+#if defined(PERL_IN_SV_C) || defined (PERL_IN_OP_C)
+pR |SV * |varname |NULLOK const GV *const gv|const char gvtype \
+ |PADOFFSET targ|NULLOK const SV *const keyname \
+ |I32 aindex|int subscript_type
+#endif
+
pX |void |sv_del_backref |NN SV *const tsv|NN SV *const sv
#if defined(PERL_IN_SV_C)
nsR |char * |uiv_2buf |NN char *const buf|const IV iv|UV uv|const int is_uv|NN char **const peob
s |void |sv_unglob |NN SV *const sv
s |void |not_a_number |NN SV *const sv
s |I32 |visit |NN SVFUNC_t f|const U32 flags|const U32 mask
-sR |SV * |varname |NULLOK const GV *const gv|const char gvtype \
- |PADOFFSET targ|NULLOK const SV *const keyname \
- |I32 aindex|int subscript_type
# ifdef DEBUGGING
s |void |del_sv |NN SV *p
# endif