From 547ae1291622100dc17f3ab6cb5aac35f22c5e43 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Thu, 24 Nov 2011 17:43:38 -0800 Subject: evalbytes should ignore outer utf8 declaration A slight mistake in the evalbytes.t test script caused a lot of tests not be testing what they were supposed to be testing for. I used 'qq(\x...)' instead of qq('\x...'). (I.e., I was trying to embed lit- eral Unicode characters in the string, rather than pass escapes to evalbytes.) I had wondered at the time why it worked without my doing anything, so I probably should have looked deeper. --- op.c | 1 + 1 file changed, 1 insertion(+) (limited to 'op.c') diff --git a/op.c b/op.c index 2fbf4bd604..93a96783c6 100644 --- a/op.c +++ b/op.c @@ -7512,6 +7512,7 @@ Perl_ck_eval(pTHX_ OP *o) op_getmad(oldo,o,'O'); } o->op_targ = (PADOFFSET)PL_hints; + if (o->op_private & OPpEVAL_BYTES) o->op_targ &= ~HINT_UTF8; if ((PL_hints & HINT_LOCALIZE_HH) != 0 && !(o->op_private & OPpEVAL_COPHH) && GvHV(PL_hintgv)) { /* Store a copy of %^H that pp_entereval can pick up. */ -- cgit v1.2.1