# HG changeset patch
# User Christian Hammond <chipx86@chipx86.com>
# Date 1061436573 0
# Node ID 4d45f1eb0a7b24380a1e4ee1b1b113de624f3370
# Parent  fe0294504602648ee11657b80a2dd10435230a3a
[gaim-migrate @ 7065]
Crashes are bad.

committer: Tailor Script <tailor@pidgin.im>

diff -r fe0294504602 -r 4d45f1eb0a7b plugins/perl/common/BuddyList.xs
--- a/plugins/perl/common/BuddyList.xs	Thu Aug 21 03:23:18 2003 +0000
+++ b/plugins/perl/common/BuddyList.xs	Thu Aug 21 03:29:33 2003 +0000
@@ -81,8 +81,11 @@
 PREINIT:
 	GaimBlistNode *node;
 CODE:
-	for (node = gaim_get_blist()->root; node != NULL; node = node->next)
+	if (gaim_get_blist() != NULL)
 	{
-		XPUSHs(sv_2mortal(gaim_perl_bless_object(node,
-			"Gaim::BuddyList::Group")));
+		for (node = gaim_get_blist()->root; node != NULL; node = node->next)
+		{
+			XPUSHs(sv_2mortal(gaim_perl_bless_object(node,
+				"Gaim::BuddyList::Group")));
+		}
 	}