diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-09-14 14:40:40 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-09-14 14:40:40 +0000 |
| commit | 67e989fb549091286d76fd8d29f1ec03b9da175d (patch) | |
| tree | b435bb5d55ee1fd063a1afe459e143ab597037ba /pp_ctl.c | |
| parent | de6193504aa249326a30bbe962866c18d77ea85d (diff) | |
| download | perl-67e989fb549091286d76fd8d29f1ec03b9da175d.tar.gz | |
Batch of UTF-8 patches from Simon Cozens.
p4raw-id: //depot/perl@7075
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2959,13 +2959,13 @@ PP(pp_require) U8 *s = (U8*)SvPVX(sv); U8 *end = (U8*)SvPVX(sv) + SvCUR(sv); if (s < end) { - rev = utf8_to_uv(s, &len); + rev = utf8_to_uv(s, &len, 0); s += len; if (s < end) { - ver = utf8_to_uv(s, &len); + ver = utf8_to_uv(s, &len, 0); s += len; if (s < end) - sver = utf8_to_uv(s, &len); + sver = utf8_to_uv(s, &len, 0); } } if (PERL_REVISION < rev |