fixed silly typo

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 0225f2f0c314a54b3d298fc9899a8a20e329d256..0cc714135317ff1119a0dc786a326b2b81c8c23f 100644 (file)
--- 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]);