This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change 24531 broke DEBUG_LEAKING_SCALARS.
authorNicholas Clark <nick@ccl4.org>
Fri, 10 Jun 2005 10:06:30 +0000 (10:06 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 10 Jun 2005 10:06:30 +0000 (10:06 +0000)
p4raw-id: //depot/perl@24785

sv.c

diff --git a/sv.c b/sv.c
index fb3e7dc..077a27d 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -5796,6 +5796,7 @@ Perl_sv_replace(pTHX_ register SV *sv, register SV *nsv)
     sv->sv_flags  = nsv->sv_flags;
     sv->sv_any    = nsv->sv_any;
     sv->sv_refcnt = nsv->sv_refcnt;
+    sv->sv_u      = nsv->sv_u;
 #else
     StructCopy(nsv,sv,SV);
 #endif