From e941823af33ba0398dfa48dc435438adc5ee365e Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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