UTF8 concat

[p5sagit/p5-mst-13.2.git] / doop.c

diff --git a/doop.c b/doop.c
index 4a74309..3394db2 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -89,7 +89,7 @@ S_do_trans_simple(pTHX_ SV *sv)
         }
     }
     *d='\0';
-    sv_setpvn(sv, dstart, d - dstart);
+    sv_setpvn(sv, (const char*)dstart, d - dstart);
     SvUTF8_on(sv);
     SvLEN_set(sv, 2*len+1);
     SvSETMAGIC(sv);
@@ -263,7 +263,7 @@ S_do_trans_simple_utf8(pTHX_ SV *sv)/* SPC - OK */
            s += UTF8SKIP(s);
     }
     *d = '\0';
-    sv_setpvn(sv, dstart, d - dstart);
+    sv_setpvn(sv, (const char*)dstart, d - dstart);
     SvSETMAGIC(sv);
     if (isutf)
         SvUTF8_on(sv);