From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 25 Oct 2006 13:51:55 +0000 (+0000)
Subject: Plug a memory leak in newCONSTSUB
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c3db7d9213b09a5852dab00368488f63a7625b9e;p=p5sagit%2Fp5-mst-13.2.git

Plug a memory leak in newCONSTSUB

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

diff --git a/op.c b/op.c
index 66d3734..5b0c3fc 100644
--- a/op.c
+++ b/op.c
@@ -5453,6 +5453,7 @@ Perl_newCONSTSUB(pTHX_ HV *stash, const char *name, SV *sv)
     cv = newXS_flags(name, const_sv_xsub, file, "", XS_DYNAMIC_FILENAME);
     CvXSUBANY(cv).any_ptr = sv;
     CvCONST_on(cv);
+    Safefree(file);
 
 #ifdef USE_ITHREADS
     if (stash)