Commit 61490737 authored by Zach Morgan's avatar Zach Morgan Committed by Torsten Schönfeld

Support unichar SV when invoking Perl code

parent b9bbcdb4
Overview of changes in Glib::Object::Introspection <next>
========================================================
* Add support for unicode character arguments to Perl callbacks.
* Avoid misusing the macro PL_na, thus preventing issues when
Glib::Object::Introspection is used in conjunction with certain XS modules,
among them XML::Parser and String::Approx.
......
......@@ -39,6 +39,7 @@ raw_to_arg (gpointer raw, GIArgument *arg, GITypeInfo *info)
break;
case GI_TYPE_TAG_UINT32:
case GI_TYPE_TAG_UNICHAR:
arg->v_uint32 = CAST_RAW (raw, guint32);
break;
......@@ -116,6 +117,7 @@ arg_to_raw (GIArgument *arg, gpointer raw, GITypeInfo *info)
break;
case GI_TYPE_TAG_UINT32:
case GI_TYPE_TAG_UNICHAR:
* (guint32 *) raw = arg->v_uint32;
break;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment