diff plugins/perl/common/BuddyList.xs @ 6543:4d45f1eb0a7b

[gaim-migrate @ 7065] Crashes are bad. committer: Tailor Script <tailor@pidgin.im>
author Christian Hammond <chipx86@chipx86.com>
date Thu, 21 Aug 2003 03:29:33 +0000
parents fe0294504602
children a87b9c7d199e
line wrap: on
line diff
--- 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")));
+		}
 	}