--- a/tests/falsecolor_test.pl	Mon Jun 27 20:37:51 2011 +0100
+++ b/tests/falsecolor_test.pl	Mon Jun 27 20:39:10 2011 +0100
@@ -10,8 +10,8 @@
 use warnings;
 
 my $script = "falsecolor";
-my $csh = "../orig/falsecolor.csh";
-my $perl = "../bin/falsecolor.perl";
+my $csh = "../orig/$script.csh";
+my $perl = "../bin/$script.perl";
 print "script: $script\n";
 
 use File::Temp qw/ tempdir /;
@@ -59,9 +59,9 @@
 		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";
-			$fail++;
 		}
 }