cater better for 0 pingint in links cmd

diff --git a/cmd/links.pl b/cmd/links.pl
index b1737145e9fc7edf96e923292d658966098755d4..419de1896ddd6c391f1b8333876e16dc09acbab9 100644 (file)
--- a/cmd/links.pl
+++ b/cmd/links.pl
@@ -41,6 +41,10 @@ foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all_nodes ) {
                        $fout = $dxchan->routefilter =~ /node_default/ ? 'D' : 'Y';
                }
        }
+       unless ($pingint) {
+               $lastt = 0;
+               $ping = "        ";
+       }
        $sort = 'ANEA' if $dxchan->is_aranea;
        $sort = "DXSP" if $dxchan->is_spider;
        $sort = "CLX " if $dxchan->is_clx;

diff --git a/perl/Version.pm b/perl/Version.pm
index 99bbd848ccce3d5d32ce3e6d8be0a34c6e977e77..3906391ebefec0b5002fe74d6c6c0c2df6d58c72 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,6 +11,6 @@ use vars qw($version $subversion $build);
 
 $version = '1.54';
 $subversion = '0';
-$build = '120';
+$build = '121';
 
 1;