X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=9a6dabf39224fd25d54b59824ddfe562f59913d7;hb=985ef8460d1cd74eee9576e6d32e625fdeb6a76c;hp=66434a0e723bf9ca89d748b79da3402cffa2a712;hpb=a204e3cd89e849e97db25879b4ddf62b770bd227;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 66434a0e..9a6dabf3 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -916,7 +916,8 @@ sub normal
 						}
 					} else {
 						$pc19list{$call} = [] unless exists $pc19list{$call};
-						push @{$pc19list{$call}}, [$self->{call}, $ver, $flags];						
+						my $nl = $pc19list{$call};
+						push @{$pc19list{$call}}, [$self->{call}, $ver, $flags] unless grep $_->[0] eq $self->{call}, @$nl;
 					}
 				}