comparison: plugins/perl/perl.c
plugins/perl/perl.c
- changeset 11123
- 098f5c57f2bb
- parent 11033
- dc68e074f10d
- child 11170
- d8941580d87f
equal
deleted
inserted
replaced
| 11122:28eadeadf52a | 11123:098f5c57f2bb |
|---|---|
| 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 } |
