maintenance: retabbed with four spaces

bin/autotest.pl

 }
 
 sub color {
-	$mood = shift;
-	$cmd = $COLORS->{$PLATFORM}->{$mood};
-	system ($cmd) if $cmd;
+    $mood = shift;
+    $cmd = $COLORS->{$PLATFORM}->{$mood};
+    system ($cmd) if $cmd;
 }
 
 sub cat {
-	$_  = shift;
+    $_  = shift;
     my ($name) = m|^.*/(.*?)$|;
     printf "$name:\n";
     if (open my $fh,  "<", $_) {
 
 sub run_tests {
     my $ret = 0;
-	printf "===== STDOUT =====\n";
-	foreach (@_) {
+    printf "===== STDOUT =====\n";
+    foreach (@_) {
         s|^$TESTS/*||;
         say "$_:"; 
-		$cmd = sprintf 'perl %s 2>%s', "$TESTS\\$_", "$DUMPS\\$_.err";
-		system($cmd);
-		$ret = $? >> 8;
+        $cmd = sprintf 'perl %s 2>%s', "$TESTS\\$_", "$DUMPS\\$_.err";
+        system($cmd);
+        $ret = $? >> 8;
         if ($ret) {
             print "last test failed with exit code $ret!\n";
             return;
         }
-	}
-	return 1;
+    }
+    return 1;
 }
 
 sub freakout {
     my $ret = shift;
-	color "nok";
-	my @paths = glob "$DUMPS/*.err";
-	printf "\n===== STDERR =====\n";
+    color "nok";
+    my @paths = glob "$DUMPS/*.err";
+    printf "\n===== STDERR =====\n";
     STDERR: foreach (@paths) {
         cat $_ and unlink $_ or warn "could not print $_";
     }
 mkdir $DUMPS unless -d $DUMPS;
 
 while (1) {
-	my @paths = glob "$TESTS/*.t";
-	&clear;
-	color "ok";
+    my @paths = glob "$TESTS/*.t";
+    &clear;
+    color "ok";
     my $ok = &run_tests(@paths);
     if ($ok) {
         say "------------------";
     } else {
         &freakout();
     }
-	sleep 5;
+    sleep 5;
 }