diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-08-08 23:28:48 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-09 07:11:32 +0000 |
| commit | 39cf41c2bf3759609409070b764ece8bd1114aea (patch) | |
| tree | 3ff6ea34a761ca67a609c6827d1c71457289d6ec /sv.c | |
| parent | e8c8d959315d53d951cc75427f9a58a15d8cf780 (diff) | |
| download | perl-39cf41c2bf3759609409070b764ece8bd1114aea.tar.gz | |
[ PATCH] Re: strange destruction problem on VMS
Message-ID: <20030808212848.GA2628@fdgroup.com>
p4raw-id: //depot/perl@20574
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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); } |