fatal warnings

[ndwebbie.git] / alliances.pl

diff --git a/alliances.pl b/alliances.pl
index 66ecfd68789dac710c85596b6b507692691cbc34..4cfa2d51f46ea61e884a8665a2953a064153f851 100644 (file)
--- a/alliances.pl
+++ b/alliances.pl
@@ -18,6 +18,8 @@
 #**************************************************************************/
 
 use strict;
+use warnings FATAL => 'all';
+no warnings qw(uninitialized);
 use POSIX;
 our $BODY;
 our $DBH;
@@ -98,7 +100,7 @@ ORDER BY $order});
        $query->execute($alliance->{id},$alliance->{id},$alliance->{id},$alliance->{id}) or $error .= $DBH->errstr;
 
        my @intel;
-       my $i = 0;
+       $i = 0;
        while (my $intel = $query->fetchrow_hashref){
                if ($intel->{ingal}){
                        $intel->{missionclass} = 'ingal';