Index: unk/tools/validate-composers.pl
===================================================================
--- /trunk/tools/validate-composers.pl	(revision 1814)
+++ 	(revision )
@@ -1,18 +1,0 @@
-open F, '../asma/Docs/Composers.txt' or die;
-1 until <F> =~ /^Unknown - /;
-<F>;
-my $n;
-my %countries;
-my ($real, $nick, $country) = '';
-while (<F>) {
-	print if $_ le $real;
-	if (($real, $nick, $country) = /^(.+?\S, .+?\S|<\?>) - (?:(.+?\S) - )?(.*\S)/) {
-		$n++;
-		$countries{$country}++;
-	}
-	else {
-		print;
-	}
-}
-print "Composers: $n\n";
-print "$_ - $countries{$_}\n" for sort keys %countries;