Fix missing keys on %cur_info hash foreach loop. Thanks to Marc Cousin for the report.

diff --git a/pgbadger b/pgbadger
index d066a75ab3b321027892199ab3d38977ff3733bb..0e24a39b43aa4a2732ebade471a152b8612e3d49 100755 (executable)
--- a/pgbadger
+++ b/pgbadger
@@ -813,7 +813,7 @@ foreach my $logfile (@log_files) {
        close $lfile;
 
        # Get stats from all pending temporary storage
-       foreach my $pid (sort {$cur_info{$a}{date} <=> $cur_info{$b}{date}} %cur_info) {
+       foreach my $pid (sort {$cur_info{$a}{date} <=> $cur_info{$b}{date}} keys %cur_info) {
                &store_queries($pid);
        }
        if ($extension eq 'tsung') {