Implement the encoding pragma for regex literals.

p4raw-id: //depot/perl@12864

1 files changed, 15 insertions, 0 deletions

diff --git a/regcomp.c b/regcomp.c
index efc1275cb5..cd3857eb2b 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -3155,6 +3155,21 @@ tryagain:
 	break;
     }
 
+    if (PL_encoding && PL_regkind[(U8)OP(ret)] == EXACT && !RExC_utf8) {
+	 STRLEN oldlen = STR_LEN(ret);
+	 SV *sv        = sv_2mortal(newSVpvn(STRING(ret), oldlen));
+	 char *s       = Perl_sv_recode_to_utf8(aTHX_ sv, PL_encoding);
+	 STRLEN newlen = SvCUR(sv);
+	 if (!SIZE_ONLY) {
+	      DEBUG_r(PerlIO_printf(Perl_debug_log, "recode %*s to %*s\n",
+				    oldlen, STRING(ret), newlen, s));
+	      Copy(s, STRING(ret), newlen, char);
+	      STR_LEN(ret) += newlen - oldlen;
+	      RExC_emit += STR_SZ(newlen) - STR_SZ(oldlen);
+	 } else
+	      RExC_size += STR_SZ(newlen) - STR_SZ(oldlen);
+    }
+
     return(ret);
 }