Re: forked process exiting before output read

[Torsten Schoenfeld <kaffeetisch gmx de>]

On Mon, 2007-07-30 at 21:29 -0400, muppet wrote:

> While one possible answer is that everything is working just fine, i  
> think it prudent that Glib::Object::CLONE() should verify that  
> perl_gobjects exists before trying to call g_hash_table_foreach() on it.

Like so?

-- 
Bye,
-Torsten

Index: GObject.xs
===================================================================
RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/GObject.xs,v
retrieving revision 1.69
diff -u -d -p -r1.69 GObject.xs
--- GObject.xs	13 Aug 2007 18:37:39 -0000	1.69
+++ GObject.xs	7 Oct 2007 18:11:17 -0000
@@ -931,7 +931,9 @@ that process.
 void
 CLONE (gchar * class)
     CODE:
-    	if (perl_gobject_tracking && strcmp (class, "Glib::Object") == 0)
+	/* !perl_gobjects can happen when no object has been created yet. */
+    	if (perl_gobject_tracking && perl_gobjects &&
+	    strcmp (class, "Glib::Object") == 0)
 	{
 		G_LOCK (perl_gobjects);
 /*g_printerr ("we're in clone: %s\n", class);*/