[libglib-perl] 02/25: Fix Glib::Variant::classify on big-endian machines

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to branch experimental
in repository libglib-perl.

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

    Fix Glib::Variant::classify on big-endian machines
---
 GVariant.xs | 10 +++++++---
 1 file 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
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libglib-perl.git