perl-Glib r1103 - trunk

[tsch svn gnome org]

Author: tsch
Date: Sun Mar  1 17:03:05 2009
New Revision: 1103
URL: http://svn.gnome.org/viewvc/perl-Glib?rev=1103&view=rev

Log:
(gperl_fundamental_type_from_obj): Check the SV for definedness before passing
it to SvRV.  This fixes a test failure on MSWin32 in t/c.t.


Modified:
   trunk/ChangeLog
   trunk/GType.xs

Modified: trunk/GType.xs
==============================================================================
--- trunk/GType.xs	(original)
+++ trunk/GType.xs	Sun Mar  1 17:03:05 2009
@@ -240,6 +240,8 @@
 {
 	SV *obj;
 	const char *package;
+	if (!gperl_sv_is_defined (objref))
+		return G_TYPE_NONE;  /* ref is not defined */
 	obj = SvRV(objref);
 	if (obj == NULL)
 		return G_TYPE_NONE;  /* ref is not a reference */