This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove two unused variables that gcc used to warn about.
authorMarcus Holland-Moritz <mhx-perl@gmx.net>
Sat, 10 Apr 2004 06:37:30 +0000 (06:37 +0000)
committerMarcus Holland-Moritz <mhx-perl@gmx.net>
Sat, 10 Apr 2004 06:37:30 +0000 (06:37 +0000)
p4raw-id: //depot/perl@22685

util.c

diff --git a/util.c b/util.c
index 56dc800..824b3a0 100644 (file)
--- a/util.c
+++ b/util.c
@@ -3954,7 +3954,7 @@ the original version contained 1 or more dots, respectively
 SV *
 Perl_vstringify(pTHX_ SV *vs)
 {
-    I32 i, len, digit;
+    I32 len;
     if ( SvROK(vs) )
        vs = SvRV(vs);
     len = av_len((AV *)vs);