Author: richter
Date: Sat Jan 11 15:56:43 2025
New Revision: 1923077
URL: http://svn.apache.org/viewvc?rev=1923077&view=rev
Log:
fix memory leak in epparse.c
Modified:
perl/embperl/trunk/epparse.c
Modified: perl/embperl/trunk/epparse.c
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/epparse.c?rev=1923077&r1=1923076&r2=1923077&view=diff
==============================================================================
--- perl/embperl/trunk/epparse.c (original)
+++ perl/embperl/trunk/epparse.c Sat Jan 11 15:56:43 2025
@@ -140,6 +140,7 @@ static int CheckProcInfo (/*i/o*/ r
{
strncpy (r -> errdat1, "BuildTokenHash", sizeof (r -> errdat1))
;
sprintf (r -> errdat2, "%s => procinfo", pToken -> sText) ;
+ free (pSortTokenHash) ;
return rcNotHashRef ;
}
if (strcmp (pKey, "embperl") == 0)
@@ -147,6 +148,7 @@ static int CheckProcInfo (/*i/o*/ r
else if (strncmp (pKey, "embperl#", 8) == 0 && (n = atoi (pKey+8))
> 0)
embperl_CompileInitItem (r, (HV *)(SvRV (pSVValue)), pToken ->
nNodeName, pToken -> nNodeType, n, ppCompilerInfo) ;
}
+ free (pSortTokenHash) ;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org
