From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Sat, 10 Apr 2004 06:37:30 +0000 (+0000)
Subject: Remove two unused variables that gcc used to warn about.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a7cb70fb771fb5beedde33170ea9e6b2b2c36bf9;p=p5sagit%2Fp5-mst-13.2.git

Remove two unused variables that gcc used to warn about.

p4raw-id: //depot/perl@22685
---

diff --git a/util.c b/util.c
index 56dc800..824b3a0 100644
--- 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);