X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fwatchdbg;h=17bb3289af9f49b58c138cee19805688e759c59e;hb=974132fc71b24d52a34484178d22b97c5ccecef9;hp=fef5cdf7e8e1f54a081f3da530b2fcd08e32f71b;hpb=d7e79ac62a8403bfdfc40ae69212eb03cff8f7ff;p=spider.git

diff --git a/perl/watchdbg b/perl/watchdbg
index fef5cdf7..17bb3289 100755
--- a/perl/watchdbg
+++ b/perl/watchdbg
@@ -67,8 +67,8 @@ sub printit
 	my $line = shift;
 	my @line =  split '\^', $line;
 	my $t = shift @line;
-        my ($sec,$min,$hour) = gmtime((defined $t) ? $t : time);
-        my $buf = sprintf "%02d:%02d:%02d", $hour, $min, $sec;
+	my ($sec,$min,$hour) = gmtime((defined $t) ? $t : time);
+	my $buf = sprintf "%02d:%02d:%02d", $hour, $min, $sec;
 
 	print $buf, ' ', join('^', @line); 
 }