From: Tom Lane <tgl@sss.pgh.pa.us>
Date: Sun, 3 Jul 2005 21:56:27 +0000 (+0000)
Subject: Fix memory leak in plperl_hash_from_tuple(), per report from Jean-Max Reymond.
X-Git-Url: http://git.postgresql.org/gitweb/static/gitweb.js?a=commitdiff_plain;h=73abd7f82ab15e44ebffc7676d7574687c95ac5f;p=users%2Fbernd%2Fpostgres.git

Fix memory leak in plperl_hash_from_tuple(), per report from Jean-Max Reymond.
---

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index b1144e4dd3..40eed6adad 100644
--- a/src/pl/plperl/plperl.c
+++ b/src/pl/plperl/plperl.c
@@ -224,7 +224,7 @@ plperl_safe_init(void)
 	"$PLContainer->permit_only(':default');"
 	"$PLContainer->permit(qw[:base_math !:base_io sort time]);"
 	"$PLContainer->share(qw[&elog &spi_exec_query &DEBUG &LOG "
-    "&INFO &NOTICE &WARNING &ERROR %SHARED ]);"
+    "&INFO &NOTICE &WARNING &ERROR %_SHARED ]);"
 	"sub ::mksafefunc { return $PLContainer->reval(qq[sub { $_[0] $_[1]}]); }"
 			   ;
 
@@ -1419,6 +1419,8 @@ plperl_hash_from_tuple(HeapTuple tuple, TupleDesc tupdesc)
 						   Int32GetDatum(tupdesc->attrs[i]->atttypmod)));
 
 		hv_store(hv, attname, namelen, newSVpv(outputstr, 0), 0);
+
+		pfree(outputstr);
 	}
 
 	return newRV_noinc((SV *) hv);