Mercurial > pidgin.yaz

diff plugins/perl/perl-handlers.c @ 12872:59ff3e1c874e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 15224] Perl plugins can now each have their own plugin pref frame. Plugin actions are still limited to one per plugin I'll deal with that a bit later. committer: Tailor Script <tailor@pidgin.im>
author Etan Reisner <pidgin@unreliablesource.net>
date Sat, 14 Jan 2006 08:28:05 +0000
parents 2422097a7a5e
children e65a7a7eabaf
line wrap: on
line diff
--- a/plugins/perl/perl-handlers.c	Sat Jan 14 07:12:46 2006 +0000
+++ b/plugins/perl/perl-handlers.c	Sat Jan 14 08:28:05 2006 +0000
@@ -130,10 +130,13 @@
 {
 	/* Sets up the Perl Stack for our call back into the script to run the
 	 * plugin_pref... sub */
+	int count;
+	GaimPerlScript *gps;
 	GaimPluginPrefFrame *ret_frame;
-	int count;
 	dSP;
 
+	gps = (GaimPerlScript *)plugin->info->extra_info;
+
 	ENTER;
 	SAVETMPS;
 	/* Some perl magic to run perl_plugin_pref_frame_SV perl sub and
@@ -141,7 +144,7 @@
 	PUSHMARK(SP);
 	PUTBACK;
 
-	count = call_pv(perl_plugin_pref_cb, G_SCALAR | G_NOARGS);
+	count = call_pv(gps->prefs_sub, G_SCALAR | G_NOARGS);
 
 	SPAGAIN;