From 76e4ec70e2a2bf367a957a5ec1ef356b7b19583d Mon Sep 17 00:00:00 2001
From: div0 <div0@f962a42d-fe04-0410-a3ab-8c8b0445ebaa>
Date: Wed, 3 Jun 2009 16:07:22 +0000
Subject: [PATCH] handle porto better

git-svn-id: svn://svn.icculus.org/nexuiz/trunk@6856 f962a42d-fe04-0410-a3ab-8c8b0445ebaa
---
 misc/tools/weapon-profiler-analyzer.pl | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/misc/tools/weapon-profiler-analyzer.pl b/misc/tools/weapon-profiler-analyzer.pl
index 2839c7e6a..dcc04a290 100755
--- a/misc/tools/weapon-profiler-analyzer.pl
+++ b/misc/tools/weapon-profiler-analyzer.pl
@@ -126,16 +126,18 @@ sub Evaluate($)
 {
 	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;
 
-- 
2.39.2