From 1478505310c54aa2d6222d12ec129547ab561eb6 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 7 Sep 2001 20:33:44 +0000 Subject: [PATCH] fix problem with only some 17m spots coming out in sh/dx on 17m --- Changes | 1 + perl/Spot.pm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index b1fd8ff0..9998e122 100644 --- a/Changes +++ b/Changes @@ -2,6 +2,7 @@ 1. prevent nodes appearing as users from incoming PC16s 2. Change ping averaging to be like TCP and become a smoothed RTT. 3. Make all the Prompts in stat/* like output appear in alphebetical order +4. Fix problem with 17m spots not appearing in sh/dx 04Sep01======================================================================= 1. add delete/user command 03Sep01======================================================================= diff --git a/perl/Spot.pm b/perl/Spot.pm index 420025e6..28a8dd72 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -250,7 +250,7 @@ sub ftor while (@b) { my $aa = shift @a; my $bb = shift @b; - if (@b < (length $d) - 1) { + if (@b < (length $d)) { $out .= '\\d'; } elsif ($aa eq $bb) { $out .= $aa; -- 2.43.0