Mercurial > pidgin
comparison libgaim/plugins/perl/perl.c @ 14372:d5c22258df09
[gaim-migrate @ 17078]
Reenable the perl build on non-Windows. I'm looking at making a gtk perl
plugin to use the gtk stuff, we'll see if I succeed. I'm leaving the gtk stuff
in here but ifdef:d out for now. I'll clean it up if I get the gtk perl plugin
working.
committer: Tailor Script <tailor@pidgin.im>
author | Etan Reisner <pidgin@unreliablesource.net> |
---|---|
date | Tue, 29 Aug 2006 04:15:29 +0000 |
parents | 338ac096e322 |
children | b1fcd2fc903a |
comparison
equal
deleted
inserted
replaced
14371:f3137c1faebe | 14372:d5c22258df09 |
---|---|
302 key = hv_fetch(plugin_info, "name", strlen("name"), 0); | 302 key = hv_fetch(plugin_info, "name", strlen("name"), 0); |
303 info->name = g_strdup(SvPV(*key, len)); | 303 info->name = g_strdup(SvPV(*key, len)); |
304 /* Set id here in case we don't find one later. */ | 304 /* Set id here in case we don't find one later. */ |
305 info->id = g_strdup(SvPV(*key, len)); | 305 info->id = g_strdup(SvPV(*key, len)); |
306 | 306 |
307 #ifdef GAIM_GTKPERL | |
307 if ((key = hv_fetch(plugin_info, "GTK_UI", | 308 if ((key = hv_fetch(plugin_info, "GTK_UI", |
308 strlen("GTK_UI"), 0))) | 309 strlen("GTK_UI"), 0))) |
309 info->ui_requirement = GAIM_GTK_PLUGIN_TYPE; | 310 info->ui_requirement = GAIM_GTK_PLUGIN_TYPE; |
311 #endif | |
310 | 312 |
311 if ((key = hv_fetch(plugin_info, "url", | 313 if ((key = hv_fetch(plugin_info, "url", |
312 strlen("url"), 0))) | 314 strlen("url"), 0))) |
313 info->homepage = g_strdup(SvPV(*key, len)); | 315 info->homepage = g_strdup(SvPV(*key, len)); |
314 | 316 |