X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=top100.pl;h=1a7d2e4233ba7a9f3372a7e9754297abb7b20817;hb=cd8e91a7a3e25419fe184483ea68dbc2064fcaa5;hp=20b0bd1f8c8b582282f30444b997a53742320732;hpb=9e7bc0a25ae14affe960a0606d0542677c51abd7;p=ndwebbie.git

diff --git a/top100.pl b/top100.pl
index 20b0bd1..1a7d2e4 100644
--- a/top100.pl
+++ b/top100.pl
@@ -18,6 +18,8 @@
 #**************************************************************************/
 
 use strict;
+use warnings FATAL => 'all';
+no warnings qw(uninitialized);
 
 $ND::TEMPLATE->param(TITLE => 'Top100 ');
 
@@ -68,9 +70,9 @@ while (my ($id,$coords,$ruler,$planet,$race,$size,$score,$value,$xp,$sizerank,$s
 		$planet{Relationship} = $relationship;
 		$planet{isHC} = 1;
 	}
+	$i++;
 	$planet{ODD} = $i % 2;
 	push @planets,\%planet;
-	$i++;
 }
 $BODY->param(Planets => \@planets);