This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Given that use re 'debug' can turn on DEBUGGING even on a non-DEBUGGING
authorNicholas Clark <nick@ccl4.org>
Fri, 21 Apr 2006 11:38:24 +0000 (11:38 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 21 Apr 2006 11:38:24 +0000 (11:38 +0000)
build, we cannot assume that PL_reg_starttry isn't needed. So copy it
in Perl_ss_dup.

p4raw-id: //depot/perl@27930

sv.c

diff --git a/sv.c b/sv.c
index 198a2c9..1c2e0af 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -10689,10 +10689,8 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
                    = pv_dup(old_state->re_state_reg_oldsaved);
                new_state->re_state_reg_poscache
                    = pv_dup(old_state->re_state_reg_poscache);
-#ifdef DEBUGGING
                new_state->re_state_reg_starttry
                    = pv_dup(old_state->re_state_reg_starttry);
-#endif
                break;
            }
        case SAVEt_COMPILE_WARNINGS: