Index: GValue.xs
===================================================================
RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/GValue.xs,v
retrieving revision 1.16
diff -u -d -r1.16 GValue.xs
--- GValue.xs	11 May 2004 17:38:12 -0000	1.16
+++ GValue.xs	12 Jun 2004 11:23:51 -0000
@@ -66,7 +66,10 @@
 {
 	char* tmp;
 	int typ = G_TYPE_FUNDAMENTAL(G_VALUE_TYPE(value)); 
-	/* printf("TYPE: %d, S: %s\n", typ, g_strdup(SvPV_nolen(sv))); */
+
+	if (!sv || !SvOK (sv))
+		return FALSE;
+
 	switch (typ) {
     		case G_TYPE_INTERFACE:
 			/* pygtk mentions something about only handling