diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-04 18:09:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-04 18:09:38 +0000 |
| commit | cce850e4f65d092b5704ab42116f11f5188dd74e (patch) | |
| tree | 86420e16cde9c0ee15805f5242bff7029ae0921c /pp_hot.c | |
| parent | 01485f8b60f6cb9da6ceaaafc3abd52c6f690081 (diff) | |
| download | perl-cce850e4f65d092b5704ab42116f11f5188dd74e.tar.gz | |
Continuation of #11575: SANY_SEEN completely deprecated,
plus more tests that unearthed a bug in @a = ($utf8 =~ /\C/g),
plus a fix for the bug.
p4raw-id: //depot/perl@11577
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1328,7 +1328,7 @@ play_it_again: len = rx->endp[i] - rx->startp[i]; s = rx->startp[i] + truebase; sv_setpvn(*SP, s, len); - if (DO_UTF8(TARG)) + if (DO_UTF8(TARG) && is_utf8_string((U8*)s, len)) SvUTF8_on(*SP); } } |