1 files changed, 1 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index b8096c2da4..3371b84d9d 100644
--- a/perl.c
+++ b/perl.c
@@ -3041,6 +3041,7 @@ Perl_moreswitches(pTHX_ char *s)
 	    }
 	    s += strlen(s);
 	    my_setenv("PERL5DB", SvPV_nolen_const(sv));
+	    SvREFCNT_dec(sv);
 	}
 	if (!PL_perldb) {
 	    PL_perldb = PERLDB_ALL;