From 2080db6b0892798e5f321098f59c1216f21a331d Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 4 May 2001 01:42:20 +0000 Subject: [PATCH] remove shadow $i --- perl/DXProtout.pm | 2 -- 1 file changed, 2 deletions(-) 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'; -- 2.43.0