This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove unused variable (thanks to Andy's lint)
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 7 Jun 2005 18:07:41 +0000 (18:07 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 7 Jun 2005 18:07:41 +0000 (18:07 +0000)
p4raw-id: //depot/perl@24737

mg.c

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;