This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid braces warning in regen_perly.pl
[perl5.git] / scope.c
diff --git a/scope.c b/scope.c
index 5c34a49..2a9b3d5 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -1136,9 +1136,6 @@ Perl_leave_scope(pTHX_ I32 base)
                     - SAVESTACK_ALLOC_FOR_RE_SAVE_STATE);
                PL_savestack_ix -= SAVESTACK_ALLOC_FOR_RE_SAVE_STATE;
 
-               if (PL_reg_start_tmp != state->re_state_reg_start_tmp) {
-                   Safefree(PL_reg_start_tmp);
-               }
                if (PL_reg_poscache != state->re_state_reg_poscache) {
                    Safefree(PL_reg_poscache);
                }