X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=project%2FIndex.pm;h=07475ff3490abec986cd642afc8eb107a4a979c8;hp=c0ba713584f7b896e8e348e58cc258bb9755c50a;hb=eea758eef3afb11fe045f2c8ee51346a54295616;hpb=fc406510006aff9bbb10e9e951b827a3d7ce64f9

diff --git a/project/Index.pm b/project/Index.pm
index c0ba713..07475ff 100755
--- a/project/Index.pm
+++ b/project/Index.pm
@@ -43,6 +43,7 @@ print(project::Lib->views("Detailed"));
 print(project::Lib->platforms(undef(),"novskip"=>1));
 
 my %item=project::Lib->name_to_hashref();
+my %item_unused=%item;
 
 my @platforms=@project::Lib::platforms;
 while (@platforms) {
@@ -55,6 +56,7 @@ while (@platforms) {
 			(lc($item{$a}{"name"}) cmp lc($item{$b}{"name"}));
 			} map({ $item{$_}{"platform"} ne $platform_sym ? () : ($_); } keys(%item));
 	for my $project (@projects) {
+		delete $item_unused{$project};
 		my $t="";
 
 		$t.="<h3>".a_href("/project/$project/",$item{$project}{"name"}.": ".$item{$project}{"summary"})."</h3>\n";
@@ -71,6 +73,7 @@ while (@platforms) {
 			}
 		}
 	}
+cluck "INVALID 'platform': $_" for keys(%item_unused);
 
 
 exit;