From d16a47c69c71370281d87c975bc6089d976eaa7b Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Fri, 8 Jan 1999 11:13:34 +0000
Subject: [PATCH] fixed silly typo

---
 perl/DXProt.pm  | 2 +-
 perl/cluster.pl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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
-- 
2.34.1