fixed silly typo

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]);
 

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 8dc14ed8a8b0625f613bd359645287c239ad9842..30f815418acdc00d3d640ac3aa2ee3050985483a 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -49,7 +49,7 @@ package main;
 
 @inqueue = ();                                 # the main input queue, an array of hashes
 $systime = 0;                                  # the time now (in seconds)
-$version = "1.21";                             # the version no of the software
+$version = "1.22";                             # the version no of the software
 $starttime = 0;                 # the starting time of the cluster   
  
 # handle disconnections