Win32 patches for cfgperl from Sarathy.

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

diff --git a/doop.c b/doop.c
index 4a74309..0c6e690 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -23,11 +23,11 @@
 
 
 #define HALF_UPGRADE(start,end) {                                    \
-                                U8* new;                             \
+                                U8* newstr;                          \
                                 STRLEN len;                          \
                                 len = end-start;                     \
-                                new = bytes_to_utf8(start, &len);    \
-                                Copy(new,start,len,U8*);             \
+                                newstr = bytes_to_utf8(start, &len); \
+                                Copy(newstr,start,len,U8*);          \
                                 end = start + len;                   \
                                 }
 
@@ -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);