From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 6 Oct 2007 16:32:36 +0000 (+0000)
Subject: The scratch scalar used in -d processing for : and = options would leak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c4db126b6e2732a51225d9d720364b1178c8ec7b;p=p5sagit%2Fp5-mst-13.2.git

The scratch scalar used in -d processing for : and = options would leak
as it was never freed.

p4raw-id: //depot/perl@32052
---

diff --git a/perl.c b/perl.c
index b8096c2..3371b84 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;