From: minima <minima>
Date: Fri, 4 May 2001 01:42:20 +0000 (+0000)
Subject: remove shadow $i
X-Git-Tag: R_1_47a
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=4e023b306b2e9a600c445c030027c1c729c601f4;p=spider.git

remove shadow $i
---

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 6894ac78..42c99551 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -117,8 +117,6 @@ sub pc19
 
 	for ($i = 0; @_; ) {
 		my $str = "PC19";
-		my $i;
-    
 		for (; @_ && $i < $DXProt::pc19_max_nodes; $i++) {
 			my $ref = shift;
 			my $here = $ref->{here} ? '1' : '0';