diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-06-21 13:44:08 +0200 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-06-21 13:44:08 +0200 |
commit | 4fec321675757b1adbfc9b8317737404d211664f (patch) | |
tree | fd6ff7b8101ed9049f43d31a85a3a7b977ae719f /hv.c | |
parent | f1c32fec87699aee2eeb638f44135f21217d2127 (diff) | |
download | perl-4fec321675757b1adbfc9b8317737404d211664f.tar.gz |
Regenerate headers and fix compilation with threads after last commit
Diffstat (limited to 'hv.c')
-rw-r--r-- | hv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1483,7 +1483,7 @@ Perl_hv_free_ent(pTHX_ HV *hv, register HE *entry) } static I32 -S_anonymise_cv(const char *stash, SV *val) +S_anonymise_cv(pTHX_ const char *stash, SV *val) { CV *cv; @@ -1494,7 +1494,7 @@ S_anonymise_cv(const char *stash, SV *val) SV *gvname; GV *anongv; - gvname = newSVpvf("%s::__ANON__", stash ? stash : "__ANON__"); + gvname = Perl_newSVpvf(aTHX_ "%s::__ANON__", stash ? stash : "__ANON__"); anongv = gv_fetchsv(gvname, GV_ADDMULTI, SVt_PVCV); SvREFCNT_dec(gvname); CvGV(cv) = anongv; |