add some debugging a fiddle with DXmsg

[spider.git] / perl / WCY.pm

diff --git a/perl/WCY.pm b/perl/WCY.pm
index f3202dd4c7451dbe536385dd20a672bccffc37a2..3949e5e439e646ac5d6c8f6962e8a965a2bb04c7 100644 (file)
--- 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]);
 }