[perl-Glib-Object-Introspection] Support unichar ↔ SV when invoking Perl code

[Torsten Schönfeld <tsch src gnome org>]

commit 614907375c3f170a2e0ecddda264814f0f7a972a
Author: Zach Morgan <zpmorgan gmail com>
Date:   Tue Sep 3 21:34:52 2013 -0400

    Support unichar ↔ SV when invoking Perl code

 NEWS                     |    1 +
 gperl-i11n-marshal-raw.c |    2 ++
 2 files changed, 3 insertions(+), 0 deletions(-)
---
diff --git a/NEWS b/NEWS
index 1aca2e4..6c7fecd 100644
--- a/NEWS
+++ b/NEWS
@@ -1,6 +1,7 @@
 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.
diff --git a/gperl-i11n-marshal-raw.c b/gperl-i11n-marshal-raw.c
index 5de0d97..2d55214 100644
--- a/gperl-i11n-marshal-raw.c
+++ b/gperl-i11n-marshal-raw.c
@@ -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;