Add ordering in queries times histogram. Thanks to Ulf Renman for the report.

diff --git a/pgbadger b/pgbadger
index 0f5fc81191803582dc738d57cd41b83b71a7636b..515f465be679f71eb5a7cbc407e1e2affa6919ae 100755 (executable)
--- a/pgbadger
+++ b/pgbadger
@@ -9110,7 +9110,7 @@ sub flotr2_piegraph
        my @datadef = ();
        my @contdef = ();
        my $i       = 1;
-       foreach my $k (sort keys %data) {
+       foreach my $k (sort { if ( ($a =~ /(\d+)/) && ($b =~ /(\d+)/) ) { ($a =~ /(\d+)/)[0] <=> ($b =~ /(\d+)/)[0]; } else { $a cmp $b; } } keys %data) {
                push(@datadef, "var d$i = [ [0,$data{$k}] ];\n");
                my $color = '';
                $color = ", color: \"$colors[$i-1]\"" if (($i-1) <= $#colors);