Change 24531 broke DEBUG_LEAKING_SCALARS.
Nicholas Clark [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