From: Dave Mitchell <davem@fdisolutions.com>
Date: Mon, 2 Jan 2006 21:50:55 +0000 (+0000)
Subject: stop DEBUG_LEAKING_SCALARS producing spurious memory pool errors
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff8dabfa5b87d11f875cfd5faa30b45d10989866;p=p5sagit%2Fp5-mst-13.2.git

stop DEBUG_LEAKING_SCALARS producing spurious memory pool errors
(change #25775 wasn't complete)
p4raw-link: @25775 on //depot/perl: 22162ca81623f0ce6683af5e97b91bf10ad89079

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

diff --git a/sv.c b/sv.c
index 016cad5..9cc9c37 100644
--- 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;
-#  ifdef NETWARE
     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);