summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2006-03-31 20:01:30 -0600
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-04-03 09:50:45 +0000
commitf84c484e31ca71701038f389bc647f43cdbdfd43 (patch)
tree7d5147498290ccb0101249a59aaaaf5c11bd15ef /op.c
parent7f596f4c76b3e581f7af85bb1c7b292b73fc268c (diff)
downloadperl-f84c484e31ca71701038f389bc647f43cdbdfd43.tar.gz
SvREFCNT_inc tweaks
Message-ID: <20060401080130.GA19372@petdance.com> p4raw-id: //depot/perl@27701
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index 64a5b7dde9..355b5cd585 100644
--- a/op.c
+++ b/op.c
@@ -5121,7 +5121,7 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
}
}
if (const_sv) {
- SvREFCNT_inc_void_NN(const_sv);
+ SvREFCNT_inc_simple_void_NN(const_sv);
if (cv) {
assert(!CvROOT(cv) && !CvCONST(cv));
sv_setpvn((SV*)cv, "", 0); /* prototype is "" */