pidgin: f3625f25: This seems to work better on Windows, wh...

[deryni at pidgin.im]

-----------------------------------------------------------------
Revision: f3625f252a6927061929f886dbf94816f62f7d61
Ancestor: c40320cb1c3cda1f20ef3ad3d53dcbfde0d155fa
Author: deryni at pidgin.im
Date: 2009-07-07T15:42:04
Branch: im.pidgin.pidgin
URL: http://d.pidgin.im/viewmtn/revision/info/f3625f252a6927061929f886dbf94816f62f7d61

Modified files:
        libpurple/plugins/perl/perl.c

ChangeLog: 

This seems to work better on Windows, what with the spaces in the path and the
backslashes.

-------------- next part --------------
============================================================
--- libpurple/plugins/perl/perl.c	037fd7cfbd867302d89092b491cdad7034e7c6fc
+++ libpurple/plugins/perl/perl.c	2d5792a7a924aa434c06fd09ac1690a5e53d7ae1
@@ -146,8 +146,8 @@ xs_init(pTHX)
 		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);
 	}