#**************************************************************************/
use strict;
+use warnings FATAL => 'all';
+no warnings qw(uninitialized);
use POSIX;
our $BODY;
our $DBH;
ORDER BY p.x,p.y,p.z});
$attackers->execute($call->{id});
my @attackers;
- my $i = 0;
+ $i = 0;
while(my $attacker = $attackers->fetchrow_hashref){
$i++;
$attacker->{ODD} = $i % 2;