Signedness nit.
Jarkko Hietaniemi [Mon, 15 Jan 2001 20:49:20 +0000 (20:49 +0000)]
p4raw-id: //depot/perl@8446

pp_ctl.c

index 5490221..487a8d2 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -119,12 +119,12 @@ PP(pp_regcomp)
            else {
                pm->op_pmdynflags &= ~PMdf_DYN_UTF8;
                if (pm->op_pmdynflags & PMdf_UTF8)
-                   t = bytes_to_utf8(t, &len);
+                   t = (char*)bytes_to_utf8((U8*)t, &len);
            }
            pm->op_pmregexp = CALLREGCOMP(aTHX_ t, t + len, pm);
            if (!DO_UTF8(tmpstr) && (pm->op_pmdynflags & PMdf_UTF8))
                Safefree(t);
-           PL_reginterp_cnt = 0;               /* XXXX Be extra paranoid - needed
+           PL_reginterp_cnt = 0;       /* XXXX Be extra paranoid - needed
                                           inside tie/overload accessors.  */
        }
     }