X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FWCY.pm;fp=perl%2FWCY.pm;h=06f41d2d9d394cc0348ea932977390d6c171d05e;hb=4710b70a986b900450fd5a5850e88554184e0d57;hp=f3202dd4c7451dbe536385dd20a672bccffc37a2;hpb=5b3f4e20affe90bff9909272a933834247a2ed9d;p=spider.git diff --git a/perl/WCY.pm b/perl/WCY.pm index f3202dd4..06f41d2d 100644 --- a/perl/WCY.pm +++ b/perl/WCY.pm @@ -195,7 +195,7 @@ sub print_item my $d = cldate($r->[0]); my $t = (gmtime($r->[0]))[2]; - return sprintf("$d %02d %5d %3d %3d %3d %3d %-5s %-5s %-3s <%s>", + return sprintf("$d %02d %5d %3d %3d %3d %3d %-5s %-5s %6s <%s>", $t, @$r[1..9]); }