# HG changeset patch
# User Eric Warmenhoven <eric@warmenhoven.org>
# Date 991438149 0
# Node ID e0631236c970b0b70f80515e45b61df274c20c26
# Parent  4e93ea84f7ddca6feea6fd13151abf2d664f1f7c
[gaim-migrate @ 1957]
heh.

committer: Tailor Script <tailor@pidgin.im>

diff -r 4e93ea84f7dd -r e0631236c970 src/perl.c
--- a/src/perl.c	Fri Jun 01 23:25:26 2001 +0000
+++ b/src/perl.c	Fri Jun 01 23:29:09 2001 +0000
@@ -617,18 +617,22 @@
 }
 
 static void do_load(GtkWidget *m, gpointer n) {
-	gchar* file = gtk_file_selection_get_filename(GTK_FILE_SELECTION(config));
-	if (!file || !strlen(file)) {
+	const char *f = gtk_file_selection_get_filename(GTK_FILE_SELECTION(config));
+	gchar* file;
+	if (!f || !strlen(f)) {
 		perl_end();
 		perl_init();
 		return;
 	}
+	file = g_strdup(f);
 	
 	if (file_is_dir(file, config)) {
+		g_free(file);
 		return;
 	}
 	
 	if (last_dir) {
+		g_free(file);
 		g_free(last_dir);
 	}
 	last_dir = g_dirname(file);
@@ -637,6 +641,7 @@
 	
 	perl_load_file(file);
 	cfdes(config, NULL);
+	g_free(file);
 }
 
 void load_perl_script(GtkWidget *w, gpointer d)