# HG changeset patch
# User Stu Tomlinson <stu@nosnilmot.com>
# Date 1130323331 0
# Node ID cdd941172951938589aab55ea3c6952180078b8a
# Parent  f91b4fedd8b58d1e3630d081c9696439790b6efa
[gaim-migrate @ 14133]
plug a couple of leaks

committer: Tailor Script <tailor@pidgin.im>

diff -r f91b4fedd8b5 -r cdd941172951 plugins/perl/perl.c
--- a/plugins/perl/perl.c	Wed Oct 26 10:32:06 2005 +0000
+++ b/plugins/perl/perl.c	Wed Oct 26 10:42:11 2005 +0000
@@ -339,13 +339,17 @@
 			/*		page.					*/
 			/********************************************************/
 			if ((key = hv_fetch(plugin_info, "prefs_info", strlen("prefs_info"), 0))) {
+				char *tmp = g_strdup_printf("%s::%s", gps->package, SvPV(*key, len));
 				/* key now is the name of the Perl sub that will create a frame for us */
-				info->prefs_info = gaim_perl_plugin_pref(g_strdup_printf("%s::%s", gps->package, SvPV(*key, len)));
+				info->prefs_info = gaim_perl_plugin_pref(tmp);
+				g_free(tmp);
 			}
 			
 			if ((key = hv_fetch(plugin_info, "gtk_prefs_info", strlen("gtk_prefs_info"), 0))) {
+				char *tmp = g_strdup_printf("%s::%s", gps->package, SvPV(*key, len));
 				/* key now is the name of the Perl sub that will create a frame for us */
-				info->ui_info = gaim_perl_gtk_plugin_pref(g_strdup_printf("%s::%s", gps->package, SvPV(*key, len)));
+				info->ui_info = gaim_perl_gtk_plugin_pref(tmp);
+				g_free(tmp);
 			}
 
 			/********************************************************/