remove shadow $i

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 6894ac7875b6c001a6ff9af56a9338a1a6851c15..42c995510c2c265d6bf8aa52b0bbc91a4e5945a0 100644 (file)
--- 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';