oops, guess I had forgotten about this file

[ndwebbie.git] / resources.pl

diff --git a/resources.pl b/resources.pl
index 5e63b7a5d3d6583c405101a982b668f39cf5ff97..363d25e16910d345b96f8dfcd3db98000fcc06ea 100644 (file)
--- a/resources.pl
+++ b/resources.pl
@@ -18,6 +18,8 @@
 #**************************************************************************/
 
 use strict;
+use warnings FATAL => 'all';
+no warnings qw(uninitialized);
 use POSIX;
 our $BODY;
 our $DBH;
@@ -50,9 +52,9 @@ $query->execute;
 my @alliances;
 my $i = 0;
 while (my $alliance = $query->fetchrow_hashref){
+       $i++;
        $alliance->{ODD} = $i % 2;
        push @alliances,$alliance;
-       $i++
 }
 $BODY->param(Alliances => \@alliances);