From: Dave Mitchell <davem@fdisolutions.com>
Date: Fri, 8 Aug 2003 22:28:48 +0000 (+0100)
Subject: [ PATCH] Re: strange destruction problem on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=39cf41c2bf3759609409070b764ece8bd1114aea;p=p5sagit%2Fp5-mst-13.2.git

[ PATCH] Re: strange destruction problem on VMS
Message-ID: <20030808212848.GA2628@fdgroup.com>

p4raw-id: //depot/perl@20574
---

diff --git a/sv.c b/sv.c
index 6fca92e..2c24d26 100644
--- a/sv.c
+++ b/sv.c
@@ -5309,6 +5309,7 @@ Perl_sv_replace(pTHX_ register SV *sv, register SV *nsv)
 #endif
     SvREFCNT(sv) = refcnt;
     SvFLAGS(nsv) |= SVTYPEMASK;		/* Mark as freed */
+    SvREFCNT(nsv) = 0;
     del_SV(nsv);
 }