This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pad.c:pad_free: Don’t reset PL_padix if using pad_reset
[perl5.git] / pad.c
diff --git a/pad.c b/pad.c
index 271a9d8..be3d055 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -1843,10 +1843,10 @@ Perl_pad_free(pTHX_ PADOFFSET po)
     sv = PL_curpad[po];
     if (sv && sv != &PL_sv_undef && !SvPADMY(sv))
        SvFLAGS(sv) &= ~SVs_PADTMP;
-#endif
 
     if ((I32)po < PL_padix)
        PL_padix = po - 1;
+#endif
 }
 
 /*