Re: segv on mistaken bless

[Torsten Schoenfeld <kaffeetisch gmx de>]

Kevin Ryde wrote:

> It'd be nice if the code noticed that, but I couldn't tell if it'd be
> the signal_emit xsub or gperl_get_object_check which might check for a
> missing mg_find.  Do some uses of gperl_get_object_check expect to get
> back NULL for undef?

No, I think gperl_get_object_check is meant to either croak or return a
valid object.  So what about the attached patch?

-- 
Bye,
-Torsten

Index: GObject.xs
===================================================================
RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/GObject.xs,v
retrieving revision 1.74
diff -u -d -p -r1.74 GObject.xs
--- GObject.xs  8 Jan 2008 05:58:56 -0000       1.74
+++ GObject.xs  1 Jun 2008 12:48:24 -0000
@@ -824,6 +824,10 @@ gperl_get_object_check (SV * sv,
                croak ("%s is not of type %s",
                       gperl_format_variable_for_output (sv),
                       package);
+       if (!mg_find (SvRV (sv), PERL_MAGIC_ext))
+               croak ("%s is not a proper Glib::Object "
+                      "(it doesn't contain magic)",
+                      gperl_format_variable_for_output (sv));
 
        return gperl_get_object (sv);
 }