From 108481f44f73c82d1f291486a8da7654b4d58fe6 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 7 Jan 2002 01:05:01 +0000
Subject: Unused variable.

p4raw-id: //depot/perl@14113
---
 regcomp.c | 1 -
 1 file changed, 1 deletion(-)

(limited to 'regcomp.c')

diff --git a/regcomp.c b/regcomp.c
index d7ae068398..3459e0a7ee 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);
-- 
cgit v1.2.1