--- a/tests/falsecolor_test.pl	Mon Jun 27 21:04:54 2011 +0100
+++ b/tests/falsecolor_test.pl	Mon Jun 27 21:06:02 2011 +0100
@@ -40,29 +40,29 @@
 my $index = 0;
 my $opts;
 foreach $opts (@options) {
-		my $stdin = @$opts[0];
-		my $args = @$opts[1];
-		$total++;
+	my $stdin = @$opts[0];
+	my $args = @$opts[1];
+	$total++;
 
-		my $cshout = "$tmpdir/${script}_csh$index.hdr";
-		my $cshcmd = "$script.csh $args > $cshout";
-		print " $stdin $cshcmd\n";
-		system "$stdin csh ../orig/$cshcmd";
+	my $cshout = "$tmpdir/${script}_csh$index.hdr";
+	my $cshcmd = "$script.csh $args > $cshout";
+	print " $stdin $cshcmd\n";
+	system "$stdin csh ../orig/$cshcmd";
 
-		my $perlout = "$tmpdir/${script}_perl$index.hdr";
-		my $perlcmd = "$script.pl $args > $perlout";
-		print " $stdin $perlcmd\n";
-		system "$stdin perl ../bin/$perlcmd";
+	my $perlout = "$tmpdir/${script}_perl$index.hdr";
+	my $perlcmd = "$script.pl $args > $perlout";
+	print " $stdin $perlcmd\n";
+	system "$stdin perl ../bin/$perlcmd";
 
-		my $diffimg = "$tmpdir/${script}_diff$index.hdr";
-		my $uval = &compare_images("$cshout", "$perlout", "$diffimg");
-		if( $uval > 0 ) {
-			print "      Error: Diff image $diffimg contains $uval unique values (should be one).\n";
-			system "ximage $diffimg";
-			$fail++;
-		} else {
-			print "      Ok: Images $cshout and $perlout are identical.\n";
-		}
+	my $diffimg = "$tmpdir/${script}_diff$index.hdr";
+	my $uval = &compare_images("$cshout", "$perlout", "$diffimg");
+	if( $uval > 0 ) {
+		print "      Error: Diff image $diffimg contains $uval unique values (should be one).\n";
+		system "ximage $diffimg";
+		$fail++;
+	} else {
+		print "      Ok: Images $cshout and $perlout are identical.\n";
+	}
 }
 
 print "$fail of $total tests failed.\n";