From 2080db6b0892798e5f321098f59c1216f21a331d Mon Sep 17 00:00:00 2001
From: minima <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.34.1