From: djk <djk>
Date: Fri, 8 Jan 1999 11:13:34 +0000 (+0000)
Subject: fixed silly typo
X-Git-Tag: R_1_22^0
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=d16a47c69c71370281d87c975bc6089d976eaa7b;p=spider.git

fixed silly typo
---

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]);
 
diff --git a/perl/cluster.pl b/perl/cluster.pl
index 8dc14ed8..30f81541 100755
--- 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