diff -r 95551e6e91ba -r ad96ca5bde01 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)