From: minima Date: Fri, 4 May 2001 01:42:20 +0000 (+0000) Subject: remove shadow $i X-Git-Tag: R_1_47a^0 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=2080db6b0892798e5f321098f59c1216f21a331d;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';