# HG changeset patch
# User Paul Aurich <paul@darkrain42.org>
# Date 1255052381 0
# Node ID 911560d0c36f95da4f91f9637a6a803772d9a12d
# Parent  203839bc0f7c1892c0403761f9df1ba5b72594a0# Parent  1e5b69e676770a41faae8429ef79d277460a0be3
merge of '0818f22621a06fa5a61bba3d4a10de1e42813cfa'
     and '4b9ca13f2987492c10363d58816d0a2e5bdee54c'

diff -r 203839bc0f7c -r 911560d0c36f libpurple/plugins/perl/common/Prpl.xs
--- a/libpurple/plugins/perl/common/Prpl.xs	Thu Oct 08 21:31:18 2009 +0000
+++ b/libpurple/plugins/perl/common/Prpl.xs	Fri Oct 09 01:39:41 2009 +0000
@@ -62,11 +62,15 @@
 PREINIT:
 	PurplePluginProtocolInfo *prpl_info;
 CODE:
-	prpl_info = PURPLE_PLUGIN_PROTOCOL_INFO(gc->prpl);
-	if (prpl_info && prpl_info->send_raw != NULL) {
-		RETVAL = prpl_info->send_raw(gc, str, strlen(str));
-	} else {
+	if (!gc)
 		RETVAL = 0;
+	else {
+		prpl_info = PURPLE_PLUGIN_PROTOCOL_INFO(gc->prpl);
+		if (prpl_info && prpl_info->send_raw != NULL) {
+			RETVAL = prpl_info->send_raw(gc, str, strlen(str));
+		} else {
+			RETVAL = 0;
+		}
 	}
 OUTPUT:
 	RETVAL