A new version of making the syslog test more robust.

[p5sagit/p5-mst-13.2.git] / toke.c

diff --git a/toke.c b/toke.c
index 78ed359..3572b0e 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -816,7 +816,7 @@ Perl_str_to_version(pTHX_ SV *sv)
        STRLEN skip;
        UV n;
        if (utf)
-           n = utf8_to_uv_chk((U8*)start, len, &skip, 0);
+           n = utf8_to_uv((U8*)start, len, &skip, 0);
        else {
            n = *(U8*)start;
            skip = 1;
@@ -1331,7 +1331,7 @@ S_scan_const(pTHX_ char *start)
            STRLEN len;
            UV uv;
 
-           uv = utf8_to_uv_chk((U8*)s, send - s, &len, UTF8_CHECK_ONLY);
+           uv = utf8_to_uv((U8*)s, send - s, &len, UTF8_CHECK_ONLY);
            if (len == 1) {
                /* Illegal UTF8 (a high-bit byte), make it valid. */
                char *old_pvx = SvPVX(sv);