This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
stop DEBUG_LEAKING_SCALARS producing spurious memory pool errors
authorDave Mitchell <davem@fdisolutions.com>
Mon, 2 Jan 2006 21:50:55 +0000 (21:50 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Mon, 2 Jan 2006 21:50:55 +0000 (21:50 +0000)
(change #25775 wasn't complete)
p4raw-link: @25775 on //depot/perl: 22162ca81623f0ce6683af5e97b91bf10ad89079

p4raw-id: //depot/perl@26587

sv.c

diff --git a/sv.c b/sv.c
index 016cad5..9cc9c37 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -9333,11 +9333,7 @@ Perl_sv_dup(pTHX_ const SV *sstr, CLONE_PARAMS* param)
     dstr->sv_debug_line = sstr->sv_debug_line;
     dstr->sv_debug_inpad = sstr->sv_debug_inpad;
     dstr->sv_debug_cloned = 1;
     dstr->sv_debug_line = sstr->sv_debug_line;
     dstr->sv_debug_inpad = sstr->sv_debug_inpad;
     dstr->sv_debug_cloned = 1;
-#  ifdef NETWARE
     dstr->sv_debug_file = savepv(sstr->sv_debug_file);
     dstr->sv_debug_file = savepv(sstr->sv_debug_file);
-#  else
-    dstr->sv_debug_file = savesharedpv(sstr->sv_debug_file);
-#  endif
 #endif
 
     ptr_table_store(PL_ptr_table, sstr, dstr);
 #endif
 
     ptr_table_store(PL_ptr_table, sstr, dstr);