--- GValue.xs 10 Jan 2008 09:50:05 +1100 1.22 +++ GValue.xs 23 Jun 2008 17:49:34 +1000 @@ -244,7 +244,16 @@ FALSE); case G_TYPE_PARAM: - return newSVGParamSpec (g_value_get_param (value)); + /* can have NULL here fetching object properties of + type G_TYPE_PARAM with no value set yet, or from + ->get_default_value of such a property */ + { + GParamSpec *ps = g_value_get_param (value); + if (ps == NULL) + return &PL_sv_undef; + else + return newSVGParamSpec (ps); + } case G_TYPE_OBJECT: return gperl_new_object (g_value_get_object (value), FALSE);