diff -r 3584d93ae63c -r b3d38f1b9bd7 plugins/perl/perl-handlers.c
--- 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;