diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-08 01:24:25 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-08 01:24:25 +0000 |
| commit | f248d07102861fd4d0819cc0b602f81105bc562c (patch) | |
| tree | 56fb766b87f14a99fd56b491dc6fa138a5c63e0f /pp.c | |
| parent | 3e3318e754fa4289ad1c682811dbe6a31cd59e26 (diff) | |
| download | perl-f248d07102861fd4d0819cc0b602f81105bc562c.tar.gz | |
fixes for logical bugs in the lexwarn patch; other tweaks to avoid
type mismatch problems
p4raw-id: //depot/perl@3658
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -3198,9 +3198,10 @@ PP(pp_reverse) up = (char*)s; s += UTF8SKIP(s); down = (char*)(s - 1); - if ((s > send || !((*down & 0xc0) == 0x80)) && - ckWARN_d(WARN_UTF8)) { - Perl_warner(aTHX_ WARN_UTF8, "Malformed UTF-8 character"); + if (s > send || !((*down & 0xc0) == 0x80)) { + if (ckWARN_d(WARN_UTF8)) + Perl_warner(aTHX_ WARN_UTF8, + "Malformed UTF-8 character"); break; } while (down > up) { |