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