Fix "[perl #20667] unicode regex vs non-unicode regex".

The PL_regdata was not set up (S_cache_re()) before it
was needed (S_reginclass()).  The test put in fresh_perl.t
because we need a pristine state to start.

p4raw-id: //depot/perl@18653

1 files changed, 1 insertions, 0 deletions

diff --git a/regexec.c b/regexec.c
index 59111a0069..da451a81a0 100644
--- a/regexec.c
+++ b/regexec.c
@@ -856,6 +856,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos,
 	    PL_regdata = prog->data;
 	    PL_bostr = startpos;
 	}
+	S_cache_re(prog);
 	s = find_byclass(prog, prog->regstclass, s, endpos, startpos, 1);
 	if (!s) {
 #ifdef DEBUGGING