summaryrefslogtreecommitdiff
path: root/pad.c
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2005-07-18 05:37:38 -0500
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-07-18 15:23:38 +0000
commit9a957fbc017c803266bc4e3766dfcbfb58cfa99b (patch)
treebeed88f144e14ca4175e374522d11a7175c151eb /pad.c
parent8896765ab803e8ecde87ca250efb892518f0df16 (diff)
downloadperl-9a957fbc017c803266bc4e3766dfcbfb58cfa99b.tar.gz
The continuing plod through embed.fnc
Message-ID: <20050718153738.GB20193@petdance.com> p4raw-id: //depot/perl@25172
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 db1ee0f7aa..2af57ef9d0 100644
--- a/pad.c
+++ b/pad.c
@@ -1505,7 +1505,7 @@ Perl_cv_clone(pTHX_ CV *proto)
SV* const_sv = op_const_sv(CvSTART(cv), cv);
if (const_sv) {
SvREFCNT_dec(cv);
- cv = newCONSTSUB(CvSTASH(proto), 0, const_sv);
+ cv = newCONSTSUB(CvSTASH(proto), Nullch, const_sv);
}
else {
CvCONST_off(cv);