X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=0cc714135317ff1119a0dc786a326b2b81c8c23f;hb=d16a47c69c71370281d87c975bc6089d976eaa7b;hp=0225f2f0c314a54b3d298fc9899a8a20e329d256;hpb=a76fe13d7a1e7e9003b11d5f5069903b81e2dc15;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 0225f2f0..0cc71413 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -390,7 +390,7 @@ sub normal
 				return;
 			}
 			$wwvdup{$dupkey} = $d;
-			$field[6] =~ s/-\d+$//o            # remove spotter's ssid
+			$field[6] =~ s/-\d+$//o;            # remove spotter's ssid
 		
 			my $wwv = Geomag::update($d, $field[2], $sfi, $k, $i, @field[6..$#field]);