Mercurial > pidgin.yaz

comparison plugins/perl/perl.c @ 11123:4315bb5f427b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 13179] Time to make perl start working again committer: Tailor Script <tailor@pidgin.im>
author John H. Kelm <johnkelm@gmail.com>
date Mon, 18 Jul 2005 16:27:53 +0000
parents 50224ac8184d
children 0e9e2b923d09
comparison
equal deleted inserted replaced
11122:59a4bc5c24e5 11123:4315bb5f427b
332 332
333 if ((key = hv_fetch(plugin_info, "unload", strlen("unload"), 0))) 333 if ((key = hv_fetch(plugin_info, "unload", strlen("unload"), 0)))
334 gps->unload_sub = g_strdup_printf("%s::%s", gps->package, 334 gps->unload_sub = g_strdup_printf("%s::%s", gps->package,
335 SvPV(*key, len)); 335 SvPV(*key, len));
336 336
337 if ((key = hv_fetch(plugin_info, "prefs_info", strlen("prefs_info"), 0))) {
338 /* key now is the name of the Perl sub that will create a frame for us */
339 info->prefs_info = gaim_perl_plugin_pref(g_strdup_printf("%s::%s", gps->package, SvPV(*key, len)));
340 }
341
337 plugin->info = info; 342 plugin->info = info;
338 info->extra_info = gps; 343 info->extra_info = gps;
339 344
340 status = gaim_plugin_register(plugin); 345 status = gaim_plugin_register(plugin);
341 } 346 }