From e941823af33ba0398dfa48dc435438adc5ee365e Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Tue, 10 Sep 2013 19:58:18 +0100 Subject: [PATCH] fix sh/time undefined $last[0] error --- Changes | 2 ++ cmd/show/time.pl | 2 ++ perl/Version.pm | 4 ++-- 3 files changed, 6 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index a73205f7..94df286a 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +10Sep13======================================================================= +1. Fix sh/time such that no arguments print details for the caller. 09Sep13======================================================================= 1. Make all the Net::Telnet based commands (sh/425, sh/contest, sh/db0sdx, sh/wm7d, sh/ik3qar) asynchronous, so that they no longer pause the node diff --git a/cmd/show/time.pl b/cmd/show/time.pl index 986320e5..e5c0ece2 100644 --- a/cmd/show/time.pl +++ b/cmd/show/time.pl @@ -10,6 +10,8 @@ my ($self, $line) = @_; my @list = split /\s+/, $line; +push @list, $self->call unless @list; + my $l; my @out; my $t = $main::systime; diff --git a/perl/Version.pm b/perl/Version.pm index 9e3f1dfc..b23b359f 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,7 +11,7 @@ use vars qw($version $subversion $build $gitversion); $version = '1.55'; $subversion = '0'; -$build = '131'; -$gitversion = '89eaa67'; +$build = '132'; +$gitversion = '8bb293d'; 1; -- 2.43.0