X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fwatchdbg;h=17bb3289af9f49b58c138cee19805688e759c59e;hb=c017b71df86184b2ecd63577e12ce40f89704a6a;hp=fef5cdf7e8e1f54a081f3da530b2fcd08e32f71b;hpb=c912e948dc2207f446c7c8930ab179b4bc3b98d7;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); 
 }