From: Steve Peters <steve@fisharerojo.org>
Date: Wed, 6 Sep 2006 14:33:06 +0000 (+0000)
Subject: Removed some leftover debugging accidentally added with
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e8a70c6f06776f8dc521036f63b8c13ae18d2746;p=p5sagit%2Fp5-mst-13.2.git

Removed some leftover debugging accidentally added with
change #28788.
p4raw-link: @28788 on //depot/perl: 98fbe98930ddfea1c62d93ddeb877f51263c4d25

p4raw-id: //depot/perl@28792
---

diff --git a/regexec.c b/regexec.c
index a94625e..d82b135 100644
--- a/regexec.c
+++ b/regexec.c
@@ -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));