# HG changeset patch
# User Christian Hammond <chipx86@chipx86.com>
# Date 1061437053 0
# Node ID 5a3fbef32910758ee5081479c11240b1f48ac29f
# Parent  a87b9c7d199e2278f7f0e58cdc41e94db770c153
[gaim-migrate @ 7067]
Added a function for returning the subsystem handle for the buddy list.

committer: Tailor Script <tailor@pidgin.im>

diff -r a87b9c7d199e -r 5a3fbef32910 plugins/perl/common/BuddyList.xs
--- 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