X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FWCY.pm;h=1df87e802b907d56e237d3d61686e8052cf6761b;hb=d5bbb8b5085e57870503e56c79cdebb26122c915;hp=504768860717204fc0f70814b6f1ca7e55c6ab8b;hpb=5835ca385fb719194163512276666aaf75e82484;p=spider.git diff --git a/perl/WCY.pm b/perl/WCY.pm index 50476886..1df87e80 100644 --- a/perl/WCY.pm +++ b/perl/WCY.pm @@ -229,7 +229,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 %6s <%s>", + return sprintf("$d %02d %5d %3d %3d %3d %3d %-5s %-5s %6s <%s>", $t, @$r[1..9]); }