eval STRING UTF8 cleanup.

(modified by the committer only to apply when the unicode_eval
feature is enabled)

1 files changed, 2 insertions, 0 deletions

diff --git a/op.c b/op.c
index ba243653b4..d5f1dd91a0 100644
--- a/op.c
+++ b/op.c
@@ -7484,6 +7484,8 @@ Perl_ck_eval(pTHX_ OP *o)
 			   MUTABLE_SV(hv_copy_hints_hv(GvHV(PL_hintgv))));
 	cUNOPo->op_first->op_sibling = hhop;
 	o->op_private |= OPpEVAL_HAS_HH;
+	if (FEATURE_IS_ENABLED("unieval"))
+	    o->op_private |= OPpEVAL_UNICODE;
     }
     return o;
 }