X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=8437ff78ee313ae95816e49f0af0333b4f15c66f;hb=7cf8fad46075f1ca2b8b30475a26a881c031a0ad;hp=2bfb9e5e61fa7ac44a7ae669fd18b21f230c78ff;hpb=41e0fd6ea6aea6950255f3671c6e8c5c6f71fded;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 2bfb9e5e..8437ff78 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -471,7 +471,7 @@ sub normal
 			# this goes after the input filtering, but before the add
 			# so that if it is input filtered, it isn't added to the dup
 			# list. This allows it to come in from a "legitimate" source
-			if (Spot::dup($field[1], $field[2], $d, $field[5])) {
+			if (Spot::dup($field[1], $field[2], $d, $field[5], $field[6])) {
 				dbg("PCPROT: Duplicate Spot ignored\n") if isdbg('chanerr');
 				return;
 			}