From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 7 Jan 2002 01:05:01 +0000 (+0000)
Subject: Unused variable.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=108481f44f73c82d1f291486a8da7654b4d58fe6;p=p5sagit%2Fp5-mst-13.2.git

Unused variable.

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

diff --git a/regcomp.c b/regcomp.c
index d7ae068..3459e0a 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -4749,7 +4749,6 @@ Perl_pregfree(pTHX_ struct regexp *r)
     if (!r || (--r->refcnt > 0))
 	return;
     DEBUG_r({
-         bool utf8 = r->reganch & ROPT_UTF8;
          char *s = pv_uni_display(dsv, (U8*)r->precomp, r->prelen, 60,
 				  UNI_DISPLAY_ISPRINT);
 	 int len = SvCUR(dsv);