diff -r 28eadeadf52a -r 098f5c57f2bb plugins/perl/perl.c
--- 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;