style fixup

Signed-off-by: Wolfgang Bumiller <w.bumiller@proxmox.com>

diff --git a/PMG/Statistic.pm b/PMG/Statistic.pm
index bdeac920fefed87e5c20f2f3a8cff24d65da36fe..ac9473fb7e7bc5fbc205614d002022213215a84c 100755 (executable)
--- a/PMG/Statistic.pm
+++ b/PMG/Statistic.pm
@@ -781,15 +781,15 @@ sub postscreen_stat_graph {
     $sth->execute ();
 
     while (my $ref = $sth->fetchrow_hashref()) {
-       @$res[$ref->{index}] = $ref;
+       $res->[$ref->{index}] = $ref;
     }
 
     my $c = int (($to - $from) / $span);
 
-    for (my $i = 0; $i < $c; $i++) {
-       @$res[$i] //= { index => $i, rbl_rejects => 0, pregreet_rejects => 0};
+    for my $i (0..$c) {
+       $res->[$i] //= { index => $i, rbl_rejects => 0, pregreet_rejects => 0};
 
-       my $d = @$res[$i];
+       my $d = $res->[$i];
        $d->{time} = $from + $i*$span - $timezone;
     }
     $sth->finish();