diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-09-30 12:18:00 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-09-30 12:18:00 +0000 |
| commit | 8e84507e42a00e64817e92106359a5275566dc19 (patch) | |
| tree | ff1d6f1a77730ac1007ca44d8ac26884b6aa3bcf /pp_ctl.c | |
| parent | 2f5768b866885bc2ed8e8faa13e51aa5ce9671f0 (diff) | |
| download | perl-8e84507e42a00e64817e92106359a5275566dc19.tar.gz | |
Re-instate Perl_utf8_to_uv without checking parameter - added in change 7075.
i.e. rename Simon's function to Perl_utf8_to_uv_chk, change all calls to it
to use new name and add Perl_utf8_to_uv() as a wrapper which calls it passing
0 to checking to get the warning.
p4raw-id: //depot/perl@7096
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, 0); + rev = utf8_to_uv_chk(s, &len, 0); s += len; if (s < end) { - ver = utf8_to_uv(s, &len, 0); + ver = utf8_to_uv_chk(s, &len, 0); s += len; if (s < end) - sver = utf8_to_uv(s, &len, 0); + sver = utf8_to_uv_chk(s, &len, 0); } } if (PERL_REVISION < rev |