diff -r d53c78e08948 -r f237942129f0 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);
 	}