diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-18 03:26:57 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-18 03:26:57 +0000 |
| commit | a197cbdd7e9359ac8bb532cbf8b4f45b621c0781 (patch) | |
| tree | aef66d8da26e5f6e09e07320595304c572af3943 /pp_hot.c | |
| parent | ecf07db8407ace687394c878c36944e861a20c9b (diff) | |
| download | perl-a197cbdd7e9359ac8bb532cbf8b4f45b621c0781.tar.gz | |
make return values from match in a list context, as well as $& et
al propagate utf8-ness (from Graham Barr)
p4raw-id: //depot/perl@5794
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -1057,6 +1057,10 @@ play_it_again: len = rx->endp[i] - rx->startp[i]; s = rx->startp[i] + truebase; sv_setpvn(*SP, s, len); + if ((pm->op_pmdynflags & PMdf_UTF8) && !IN_BYTE) { + SvUTF8_on(*SP); + sv_utf8_downgrade(*SP, TRUE); + } } } if (global) { |