another g++ patch (Util.xs)

From: "Paul Marquess" <paul.marquess@ntlworld.com>
Message-ID: <00ea01c6e930$269f3d70$4e3c140a@myopwv.com>

p4raw-id: //depot/perl@28954

diff --git a/ext/List/Util/Util.xs b/ext/List/Util/Util.xs
index 3a95046..5f713a0 100644 (file)
--- a/ext/List/Util/Util.xs
+++ b/ext/List/Util/Util.xs
@@ -390,7 +390,7 @@ CODE:
     if(!sv_isobject(sv)) {
        XSRETURN_UNDEF;
     }
-    RETVAL = sv_reftype(SvRV(sv),TRUE);
+    RETVAL = (char*)sv_reftype(SvRV(sv),TRUE);
 }
 OUTPUT:
     RETVAL
@@ -406,7 +406,7 @@ CODE:
     if(!SvROK(sv)) {
        XSRETURN_UNDEF;
     }
-    RETVAL = sv_reftype(SvRV(sv),FALSE);
+    RETVAL = (char*)sv_reftype(SvRV(sv),FALSE);
 }
 OUTPUT:
     RETVAL