This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
another g++ patch (Util.xs)
[perl5.git] / 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