Mercurial > pidgin
diff src/win32/win32dep.c @ 6816:5aeba37b303c
[gaim-migrate @ 7356]
Perl plugins for Win Gaim.
committer: Tailor Script <tailor@pidgin.im>
author | Herman Bloggs <hermanator12002@yahoo.com> |
---|---|
date | Fri, 12 Sep 2003 19:04:52 +0000 |
parents | ae4c3abbaac1 |
children | 060aa79a733e |
line wrap: on
line diff
--- a/src/win32/win32dep.c Fri Sep 12 05:36:50 2003 +0000 +++ b/src/win32/win32dep.c Fri Sep 12 19:04:52 2003 +0000 @@ -412,19 +412,28 @@ /* Windows Initializations */ +void wgaim_pre_plugin_init(void) { + char *perlenv, *newenv; + + /* Tell perl where to find Gaim's perl modules */ + perlenv = (char*)g_getenv("PERL5LIB"); + newenv = g_strdup_printf("PERL5LIB=%s%s%s%s", + perlenv ? perlenv : "", + perlenv ? ";" : "", + wgaim_install_dir(), + "\\perlmod;"); + if(putenv(newenv)<0) + gaim_debug(GAIM_DEBUG_WARNING, "wgaim", "putenv failed\n"); + g_free(newenv); +} + void wgaim_init(void) { WORD wVersionRequested; WSADATA wsaData; char newenv[128]; - char* drmingw; gaim_debug(GAIM_DEBUG_INFO, "wgaim", "wgaim_init\n"); - /* Load exception handler if we have it */ - drmingw = g_build_filename(wgaim_install_dir(), "exchndl.dll", NULL); - LoadLibrary(drmingw); - g_free(drmingw); - load_winver_specific_procs(); /*