diff plugins/perl/common/BuddyList.xs @ 6545:5a3fbef32910

[gaim-migrate @ 7067] Added a function for returning the subsystem handle for the buddy list. committer: Tailor Script <tailor@pidgin.im>
author Christian Hammond <chipx86@chipx86.com>
date Thu, 21 Aug 2003 03:37:33 +0000
parents a87b9c7d199e
children 12169973c663
line wrap: on
line diff
--- a/plugins/perl/common/BuddyList.xs	Thu Aug 21 03:34:53 2003 +0000
+++ b/plugins/perl/common/BuddyList.xs	Thu Aug 21 03:37:33 2003 +0000
@@ -89,3 +89,10 @@
 				"Gaim::BuddyList::Group")));
 		}
 	}
+
+void *
+handle()
+CODE:
+	RETVAL = gaim_blist_get_handle();
+OUTPUT:
+	RETVAL