summaryrefslogtreecommitdiff
path: root/pad.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2006-02-24 13:59:57 +0000
committerNicholas Clark <nick@ccl4.org>2006-02-24 13:59:57 +0000
commite736a858356e87659136ef1f34af858e253efe45 (patch)
treefff8fbef1435adacac7b8d8b5706fe81ace77603 /pad.c
parentb96578bbbdd04614cada6e526896b2fa8f332c8a (diff)
downloadperl-e736a858356e87659136ef1f34af858e253efe45.tar.gz
Store the stash for our in the magic slot. This will allow us to use
PVMGs in pad names where previously PVGVs were used. In turn, this gives much greater flexibility for the layout of PVGVs. p4raw-id: //depot/perl@27312
Diffstat (limited to 'pad.c')
-rw-r--r--pad.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pad.c b/pad.c
index 97e2615134..1cad44463e 100644
--- a/pad.c
+++ b/pad.c
@@ -348,7 +348,7 @@ Perl_pad_add_name(pTHX_ const char *name, HV* typestash, HV* ourstash, bool fake
if (ourstash) {
SvPAD_OUR_on(namesv);
OURSTASH_set(namesv, ourstash);
- Perl_sv_add_backref(aTHX_ (SV*)ourstash, namesv);
+ SvREFCNT_inc(ourstash);
}
av_store(PL_comppad_name, offset, namesv);