# HG changeset patch
# User Christian Hammond <chipx86@chipx86.com>
# Date 1081219978 0
# Node ID ba075b939aa609cff5fe8e0dcd5c2f21fe47e2c6
# Parent  1dde34c45c5bd93e8001ab38d539dc62e319cc9b
[gaim-migrate @ 9344]
I'm not expecting any miracles, but this just *might* fix some crashes in
the perl plugin... If anybody wants to take over the perl plugin, contact
me.

committer: Tailor Script <tailor@pidgin.im>

diff -r 1dde34c45c5b -r ba075b939aa6 plugins/perl/perl-common.c
--- a/plugins/perl/perl-common.c	Tue Apr 06 02:36:09 2004 +0000
+++ b/plugins/perl/perl-common.c	Tue Apr 06 02:52:58 2004 +0000
@@ -55,6 +55,9 @@
 	HV *stash;
 	HV *hv;
 
+	if (object == NULL)
+		return NULL;
+
 	if (object_stashes == NULL)
 	{
 		object_stashes = g_hash_table_new(g_direct_hash, g_direct_equal);
@@ -94,6 +97,9 @@
 	HV *hv;
 	void *p;
 
+	if (o == NULL)
+		return NULL;
+
 	hv = hvref(o);
 
 	if (hv == NULL)