From 4a61a419e973664cf6d84b4399c096cc6336f124 Mon Sep 17 00:00:00 2001
From: Paul Marquess <paul.marquess@btinternet.com>
Date: Fri, 6 Oct 2006 12:14:03 +0100
Subject: [PATCH] another g++ patch (Util.xs) From: "Paul Marquess"
 <paul.marquess@ntlworld.com> Message-ID:
 <00ea01c6e930$269f3d70$4e3c140a@myopwv.com>

p4raw-id: //depot/perl@28954
---
 ext/List/Util/Util.xs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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