From: Paul Marquess <paul.marquess@btinternet.com>
Date: Fri, 6 Oct 2006 11:14:03 +0000 (+0100)
Subject: another g++ patch (Util.xs)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4a61a419e973664cf6d84b4399c096cc6336f124;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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