diff options
| author | Ton Hospel <perl5-porters@ton.iguana.be> | 2005-01-29 13:07:38 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-02-02 19:35:47 +0000 |
| commit | 0c81e54bc30e3e0dec16be656a10a6c616817930 (patch) | |
| tree | 6cd358bbcf60f75076fbebb595eb7d10c5cd5ece /pp_pack.c | |
| parent | d6d3e8bddad8c105fc1972d4d9a8298ad3f73f11 (diff) | |
| download | perl-0c81e54bc30e3e0dec16be656a10a6c616817930.tar.gz | |
Re: encoding neutral unpack
From: perl5-porters[at]ton.iguana.be (Ton Hospel)
Message-ID: <ctg1qq$j0e$3[at]post.home.lunix>
Make U0 and C0 scoped to () pack subtemplates.
(plus a regression test)
p4raw-id: //depot/perl@23923
Diffstat (limited to 'pp_pack.c')
| -rw-r--r-- | pp_pack.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -991,6 +991,10 @@ S_unpack_rec(pTHX_ register tempsym_t* symptr, register char *s, char *strbeg, c while (len--) { symptr->patptr = savsym.grpbeg; unpack_rec(symptr, ss, strbeg, strend, &ss ); + if (savsym.flags & FLAG_UNPACK_DO_UTF8) + symptr->flags |= FLAG_UNPACK_DO_UTF8; + else + symptr->flags &= ~FLAG_UNPACK_DO_UTF8; if (ss == strend && savsym.howlen == e_star) break; /* No way to continue */ } |