From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 10 Sep 2013 18:58:18 +0000 (+0100)
Subject: fix sh/time undefined $last[0] error
X-Git-Tag: 1.57~5
X-Git-Url: http://dxspider.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=e941823af33ba0398dfa48dc435438adc5ee365e;p=spider.git

fix sh/time undefined $last[0] error
---

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;