summaryrefslogtreecommitdiff
path: root/hv.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2009-06-21 13:44:08 +0200
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2009-06-21 13:44:08 +0200
commit4fec321675757b1adbfc9b8317737404d211664f (patch)
treefd6ff7b8101ed9049f43d31a85a3a7b977ae719f /hv.c
parentf1c32fec87699aee2eeb638f44135f21217d2127 (diff)
downloadperl-4fec321675757b1adbfc9b8317737404d211664f.tar.gz
Regenerate headers and fix compilation with threads after last commit
Diffstat (limited to 'hv.c')
-rw-r--r--hv.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/hv.c b/hv.c
index ab22584f3c..8d1c6a95c9 100644
--- a/hv.c
+++ b/hv.c
@@ -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;