This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
another g++ patch (Util.xs)
authorPaul Marquess <paul.marquess@btinternet.com>
Fri, 6 Oct 2006 11:14:03 +0000 (12:14 +0100)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Sat, 7 Oct 2006 11:52:04 +0000 (11:52 +0000)
From: "Paul Marquess" <paul.marquess@ntlworld.com>
Message-ID: <00ea01c6e930$269f3d70$4e3c140a@myopwv.com>

p4raw-id: //depot/perl@28954

ext/List/Util/Util.xs

index 3a95046..5f713a0 100644 (file)
@@ -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