# HG changeset patch
# User Etan Reisner <pidgin@unreliablesource.net>
# Date 1246981324 0
# Node ID cd390b71b9ffc1361c0a6a093e9c85a22e953260
# Parent  0b20adf798f7161401ec5d2699acd3ce592ef914
This seems to work better on Windows, what with the spaces in the path and the
backslashes.

diff -r 0b20adf798f7 -r cd390b71b9ff libpurple/plugins/perl/perl.c
--- a/libpurple/plugins/perl/perl.c	Tue Jul 07 07:27:17 2009 +0000
+++ b/libpurple/plugins/perl/perl.c	Tue Jul 07 15:42:04 2009 +0000
@@ -146,8 +146,8 @@
 		const gchar *search_path = search_paths->data;
 		search_paths = g_list_next(search_paths);
 
-		uselib = g_strdup_printf("unshift @INC, \"%s%cperl\";",
-		                         search_path, G_DIR_SEPARATOR);
+		uselib = g_strdup_printf("unshift @INC, q(%s%sperl);",
+		                         search_path, G_DIR_SEPARATOR_S);
 		eval_pv(uselib, TRUE);
 		g_free(uselib);
 	}