diff -r 36e9d07f56c3 -r 519199cca273 plugins/perl/common/BuddyList.xs
--- a/plugins/perl/common/BuddyList.xs	Tue Jan 17 19:28:45 2006 +0000
+++ b/plugins/perl/common/BuddyList.xs	Tue Jan 17 23:22:19 2006 +0000
@@ -222,10 +222,7 @@
 	GList *l;
 PPCODE:
 	for (l = gaim_blist_node_get_extended_menu(node); l != NULL; l = l->next) {
-		/* XXX I'm pretty sure this is what should be being used here,
-		 * not that it really matters since perl doesn't really have a
-		 * way to interact with a GaimBlistNodeAction anyway. */
-		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::BuddyList::Node::Action")));
+		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Menu::Action")));
 	}
 
 void