Mercurial > pidgin.yaz
diff plugins/perl/perl.c @ 11123:4315bb5f427b
[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 |
line wrap: on
line diff
--- a/plugins/perl/perl.c Mon Jul 18 15:49:12 2005 +0000 +++ b/plugins/perl/perl.c Mon Jul 18 16:27:53 2005 +0000 @@ -334,6 +334,11 @@ gps->unload_sub = g_strdup_printf("%s::%s", gps->package, SvPV(*key, len)); + if ((key = hv_fetch(plugin_info, "prefs_info", strlen("prefs_info"), 0))) { + /* key now is the name of the Perl sub that will create a frame for us */ + info->prefs_info = gaim_perl_plugin_pref(g_strdup_printf("%s::%s", gps->package, SvPV(*key, len))); + } + plugin->info = info; info->extra_info = gps;