Re: [PATCH (incomplete)] Make regcomp use SV* sv, instead of char* exp, char* xend
[perl.git] / op.c
diff --git a/op.c b/op.c
index 9e16fc8..befacc3 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3436,8 +3436,7 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, bool isreg)
        }
         if (DO_UTF8(pat))
            pm_flags |= RXf_UTF8;
-       /* FIXME - can we make this function take const char * args?  */
-       PM_SETRE(pm, CALLREGCOMP((char*)p, (char*)p + plen, pm_flags));
+       PM_SETRE(pm, CALLREGCOMP(pat, pm_flags));
 
 #ifdef PERL_MAD
        op_getmad(expr,(OP*)pm,'e');