[nexuiz-commits] r6856 - trunk/misc/tools

[DONOTREPLY at icculus.org]

Author: div0
Date: 2009-06-03 12:07:22 -0400 (Wed, 03 Jun 2009)
New Revision: 6856

Modified:
   trunk/misc/tools/weapon-profiler-analyzer.pl
Log:
handle porto better


Modified: trunk/misc/tools/weapon-profiler-analyzer.pl
===================================================================
--- trunk/misc/tools/weapon-profiler-analyzer.pl	2009-06-03 13:28:37 UTC (rev 6855)
+++ trunk/misc/tools/weapon-profiler-analyzer.pl	2009-06-03 16:07:22 UTC (rev 6856)
@@ -126,16 +126,18 @@
 {
 	my ($matrix) = @_;
 	my %allweps;
-	for(keys %$matrix)
+	while(my ($k, $v) = each %$matrix)
 	{
-		++$allweps{$_};
-		for(keys %{$matrix->{$_}})
+		for(my ($k2, $v2) = each %$v)
 		{
-			++$allweps{$_};
+			next if $k eq $k2;
+			next if !$v2;
+			++$allweps{$k};
+			++$allweps{$k2};
 		}
 	}
 	delete $allweps{"@!#%'n Tuba"};
-	delete $allweps{"Port-O-Launch"};
+#delete $allweps{"Port-O-Launch"};
 	my @allweps = keys %allweps;
 	my %values;