/* Hot code. */
#ifdef USE_5005THREADS
-static void unset_cvowner(pTHXo_ void *cvarg);
+static void unset_cvowner(pTHX_ void *cvarg);
#endif /* USE_5005THREADS */
PP(pp_const)
(PL_tainted && (pm->op_pmflags & PMf_RETAINT)));
TAINT_NOT;
- PL_reg_sv_utf8 = DO_UTF8(TARG);
+ PL_reg_match_utf8 = DO_UTF8(TARG);
if (pm->op_pmdynflags & PMdf_USED) {
failure:
if (global) {
rx->subbeg = truebase;
rx->startp[0] = s - truebase;
- if (PL_reg_sv_utf8) {
+ if (PL_reg_match_utf8) {
char *t = (char*)utf8_hop((U8*)s, rx->minlen);
rx->endp[0] = t - truebase;
}
rxtainted |= 2;
TAINT_NOT;
- PL_reg_sv_utf8 = DO_UTF8(TARG);
+ PL_reg_match_utf8 = DO_UTF8(TARG);
force_it:
if (!pm || !s)
DIE(aTHX_ "panic: pp_subst");
strend = s + len;
- slen = PL_reg_sv_utf8 ? utf8_length((U8*)s, (U8*)strend) : len;
+ slen = PL_reg_match_utf8 ? utf8_length((U8*)s, (U8*)strend) : len;
maxiters = 2 * slen + 10; /* We can match twice at each
position, once with zero-length,
second time with non-zero. */
PL_curcopdb = NULL;
}
/* Do we need to open block here? XXXX */
- (void)(*CvXSUB(cv))(aTHXo_ cv);
+ (void)(*CvXSUB(cv))(aTHX_ cv);
/* Enforce some sanity in scalar context. */
if (gimme == G_SCALAR && ++markix != PL_stack_sp - PL_stack_base ) {
#ifdef USE_5005THREADS
static void
-unset_cvowner(pTHXo_ void *cvarg)
+unset_cvowner(pTHX_ void *cvarg)
{
register CV* cv = (CV *) cvarg;