From bbd429459d2ee40043d86e5bc021a9d030ca05d1 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Tue, 29 Nov 2011 20:12:56 -0800 Subject: =?UTF-8?q?hv.h:=20Don=E2=80=99t=20call=20a=20char=20*=20parameter?= =?UTF-8?q?=20=E2=80=98sv=E2=80=99!?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This goes all the way back to bbce6d6978 (inseparable changes from patch from perl5.003_08 to perl5.003_09). It is mightily confusing for anyone trying to figure out how these things work. --- hv.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'hv.h') diff --git a/hv.h b/hv.h index 2058fcd653..e45460a8c0 100644 --- a/hv.h +++ b/hv.h @@ -452,8 +452,8 @@ C. #define hv_magic(hv, gv, how) sv_magic(MUTABLE_SV(hv), MUTABLE_SV(gv), how, NULL, 0) #define hv_undef(hv) Perl_hv_undef_flags(aTHX_ hv, 0) -#define Perl_sharepvn(sv, len, hash) HEK_KEY(share_hek(sv, len, hash)) -#define sharepvn(sv, len, hash) Perl_sharepvn(sv, len, hash) +#define Perl_sharepvn(pv, len, hash) HEK_KEY(share_hek(pv, len, hash)) +#define sharepvn(pv, len, hash) Perl_sharepvn(pv, len, hash) #define share_hek_hek(hek) \ (++(((struct shared_he *)(((char *)hek) \ -- cgit v1.2.1