summaryrefslogtreecommitdiff
path: root/pp.h
diff options
context:
space:
mode:
authorRick Delaney <rick@consumercontact.com>2003-01-01 17:54:59 -0500
committerJarkko Hietaniemi <jhi@iki.fi>2003-09-18 19:15:07 +0000
commit29ddfe354327d85ef66e9723b006d41eb553cd25 (patch)
tree249aeaf66eb16205c4a8528f9c8589ebf8f70258 /pp.h
parentd1bddb8e6a8a26e4cebf65fd8f44b156b4784f23 (diff)
downloadperl-29ddfe354327d85ef66e9723b006d41eb553cd25.tar.gz
Re: [perl #19582] [PATCH bleedperl] bad overload copy constructor segfaults
Message-ID: <20030101225459.A2320@cs839290-a.mtth.phub.net.cable.rogers.com> (Pity the first patch fell through the cracks back then. Not that forbidding non-object copy constructors is the right thing to do but the bug could use fixing.) p4raw-id: //depot/perl@21276
Diffstat (limited to 'pp.h')
-rw-r--r--pp.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp.h b/pp.h
index 8986db95df..3893c10d9d 100644
--- a/pp.h
+++ b/pp.h
@@ -385,8 +385,8 @@ See C<PUSHu>.
changed SV* ref to SV* tmpRef */
#define RvDEEPCP(rv) STMT_START { SV* tmpRef=SvRV(rv); \
if (SvREFCNT(tmpRef)>1) { \
+ SvRV(rv)=AMG_CALLun(rv,copy); \
SvREFCNT_dec(tmpRef); \
- SvRV(rv)=AMG_CALLun(rv,copy); \
} } STMT_END
/*