remove -@ from spots ssids

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b8ac3ead62ddc313c35edf2ef04fb91d220ffba2..c1e83d7907633558f95349df709f8d5cc9b55f18 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -210,7 +210,7 @@ sub normal
                        
                        # store it away
                        my $spotter = $field[6];
-                       $spotter =~ s/-\d+$//o; # strip off the ssid from the spotter
+                       $spotter =~ s/-[\@\d]+$//o;     # strip off the ssid from the spotter
                        
                        # do some de-duping
                        my $freq = $field[1] - 0;