diff options
| author | Steve Peters <steve@fisharerojo.org> | 2006-09-06 14:33:06 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-09-06 14:33:06 +0000 |
| commit | e8a70c6f06776f8dc521036f63b8c13ae18d2746 (patch) | |
| tree | 6b6222cd16f8c9e28b90b5264ec0d0f867612323 /regexec.c | |
| parent | 3fb99e37f6be62b46fe5d186e325abae91936ba9 (diff) | |
| download | perl-e8a70c6f06776f8dc521036f63b8c13ae18d2746.tar.gz | |
Removed some leftover debugging accidentally added with
change #28788.
p4raw-link: @28788 on //depot/perl: 98fbe98930ddfea1c62d93ddeb877f51263c4d25
p4raw-id: //depot/perl@28792
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 11 |
1 files changed, 2 insertions, 9 deletions
@@ -4944,15 +4944,8 @@ S_reginclass(pTHX_ const regexp *prog, register const regnode *n, register const c = utf8n_to_uvchr(p, UTF8_MAXBYTES, &len, (UTF8_ALLOW_DEFAULT & UTF8_ALLOW_ANYUV) | UTF8_CHECK_ONLY); /* see [perl #37836] for UTF8_ALLOW_ANYUV */ - if (len == (STRLEN)-1) { - int i; - PerlIO_printf(Perl_debug_log, "utf8: "); - for (i = 0; i < 4; i++) - PerlIO_printf(Perl_debug_log, "\\x%02x", p[i]); - PerlIO_printf(Perl_debug_log, "\n"); - Perl_warner(aTHX_ packWARN(WARN_REGEXP), "Malformed UTF-8 character"); - /* Perl_croak(aTHX_ "Malformed UTF-8 character (fatal)"); */ - } + if (len == (STRLEN)-1) + Perl_croak(aTHX_ "Malformed UTF-8 character (fatal)"); } plen = lenp ? *lenp : UNISKIP(NATIVE_TO_UNI(c)); |