This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Abolish RXf_UTF8. Store the UTF-8-ness of the pattern with SvUTF8().
[perl5.git] / op.c
diff --git a/op.c b/op.c
index a0c4f35..4f8879e 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3449,7 +3449,6 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, bool isreg)
            const char *const p = SvPV(pat, len);
            pat = newSVpvn_flags(p, len, SVs_TEMP);
        }
-       assert(!(pm_flags & RXf_UTF8));
 
        PM_SETRE(pm, CALLREGCOMP(pat, pm_flags));