X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=3681bfbf35fee93b3c8fbbe96baf3bf716a1460a;hb=6a510dc82f3050640dfe6b8d499995348075fe7a;hp=4d716ce79844f486132e09d917b715381aebd070;hpb=5198a7d29d9dbafde9de46c04a67d86cf0e548f2;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 4d716ce7..3681bfbf 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1155,7 +1155,7 @@ sub normal
 				return;
 			}
 			@field = map { unpad($_) } @field;
-			if (WCY::dup($d,@field[3..7])) {
+			if (WCY::dup($d)) {
 				dbg("PCPROT: Dup WCY Spot ignored\n") if isdbg('chanerr');
 				return;
 			}
@@ -1164,7 +1164,7 @@ sub normal
 
 			my $rep;
 			eval {
-				$rep = Local::wwv($self, @field[1..12]);
+				$rep = Local::wcy($self, @field[1..12]);
 			};
 			# dbg("Local::wcy error $@") if isdbg('local') if $@;
 			return if $rep;