Remove unused variable (thanks to Andy's lint)

p4raw-id: //depot/perl@24737

diff --git a/mg.c b/mg.c
index 7a5c1cf..e7f3b21 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -494,7 +494,6 @@ Perl_magic_len(pTHX_ SV *sv, MAGIC *mg)
              getlen:
                if (i > 0 && RX_MATCH_UTF8(rx)) {
                    char *s    = rx->subbeg + s1;
-                   char *send = rx->subbeg + t1;
                    const U8 *ep;
                    STRLEN el;