RMG: Encourage use of http://analysis.cpantesters.org/beforemaintrelease

[perl5.git] / scope.c

diff --git a/scope.c b/scope.c
index a1aa3f5..89b4e6e 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -972,6 +972,9 @@ Perl_leave_scope(pTHX_ I32 base)
        case SAVEt_FREESV:
            SvREFCNT_dec(ARG0_SV);
            break;
+       case SAVEt_FREEPADNAME:
+           PadnameREFCNT_dec((PADNAME *)ARG0_PTR);
+           break;
        case SAVEt_FREECOPHH:
            cophh_free((COPHH *)ARG0_PTR);
            break;