perl-Glib r1078 - trunk

[tsch svn gnome org]

Author: tsch
Date: Thu Feb  5 15:57:39 2009
New Revision: 1078
URL: http://svn.gnome.org/viewvc/perl-Glib?rev=1078&view=rev

Log:
(gperl_register_fundamental_full): Handle wrapper_class_by_type being NULL
gracefully.  Patch by Kevin Ryde.


Modified:
   trunk/ChangeLog
   trunk/GType.xs

Modified: trunk/GType.xs
==============================================================================
--- trunk/GType.xs	(original)
+++ trunk/GType.xs	Thu Feb  5 15:57:39 2009
@@ -273,10 +273,13 @@
 GPerlValueWrapperClass *
 gperl_fundamental_wrapper_class_from_type (GType gtype)
 {
-	GPerlValueWrapperClass * res;
+	GPerlValueWrapperClass * res = NULL;
 	G_LOCK (wrapper_class_by_type);
-	res = (GPerlValueWrapperClass *)
-		g_hash_table_lookup (wrapper_class_by_type, (gpointer) gtype);
+	if (wrapper_class_by_type) {
+		res = (GPerlValueWrapperClass *)
+			g_hash_table_lookup (wrapper_class_by_type,
+			                     (gpointer) gtype);
+	}
 	G_UNLOCK (wrapper_class_by_type);
 	return res;
 }