Unused variable.

p4raw-id: //depot/perl@14113

diff --git a/regcomp.c b/regcomp.c
index d7ae068..3459e0a 100644 (file)
--- 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);