From d16a47c69c71370281d87c975bc6089d976eaa7b Mon Sep 17 00:00:00 2001 From: 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.43.0