[perl-Glib] Fix Glib::Variant::classify on big-endian machines

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

commit 88a2b5f4e375fa2f2cdf3b2c692e1a9631a2f739
Author: Torsten Schönfeld <kaffeetisch gmx de>
Date:   Sun Jun 28 23:06:45 2015 +0200

    Fix Glib::Variant::classify on big-endian machines

 GVariant.xs |   10 +++++++---
 1 files changed, 7 insertions(+), 3 deletions(-)
---
diff --git a/GVariant.xs b/GVariant.xs
index e359829..7fddee8 100644
--- a/GVariant.xs
+++ b/GVariant.xs
@@ -279,10 +279,14 @@ gboolean g_variant_is_container (GVariant *value);
 
 const char * g_variant_classify (GVariant *value);
     PREINIT:
-       GVariantClass vclass;
+       char vclass_char[2];
     CODE:
-       vclass = g_variant_classify (value);
-       RETVAL = (const char *) &vclass;
+       /* g_variant_classify's return value is of type GVariantClass, which is
+        * probably wider than a char, so we must not treat its address as a
+        * string on big-endian machines. */
+       vclass_char[0] = g_variant_classify (value);
+       vclass_char[1] = 0;
+       RETVAL = vclass_char;
     OUTPUT:
        RETVAL