fix sh/time undefined $last[0] error

diff --git a/Changes b/Changes
index a73205f7469974b4ed76a4dfc44e16883a54973e..94df286a175fa230e8284e2d5cab06d59bbca6de 100644 (file)
--- 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 986320e5108f83fccfa4b650960243849623860a..e5c0ece2fee6b7cb330f94bbf166266382c7730f 100644 (file)
--- 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 9e3f1dfccb3dfd4256abda967c0d404f6f37b0e1..b23b359f3239d1e2884f723194cf8bfeae232dee 100644 (file)
--- 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;