X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtout.pm;h=42c995510c2c265d6bf8aa52b0bbc91a4e5945a0;hb=2080db6b0892798e5f321098f59c1216f21a331d;hp=6894ac7875b6c001a6ff9af56a9338a1a6851c15;hpb=c2c7c24afb2bd2126da043c45bc35ddbf5c327ac;p=spider.git

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';