Fix case where no error sample log entries was reported. Thanks to jhn doe for the report.

Author: darold

pgbadger

@@ -6057,7 +6057,7 @@ sub set_top_error_sample
 	# Stop when we have our number of samples
 	if (!exists $error_info{$curdb}{$q}{date} || ($#{$error_info{$curdb}{$q}{date}}+1 < $sample))
 	{
-		if ( $q =~ /deadlock detected/ || (!$statement && $detail && !grep(/^\Q$detail\E$/, @{$error_info{$curdb}{$q}{detail}})) || ($statement && !grep(/^\Q$statement\E$/, @{$error_info{$curdb}{$q}{statement}})) )
+#		if ( $q =~ /deadlock detected/ || (!$statement && $detail && !grep(/^\Q$detail\E$/, @{$error_info{$curdb}{$q}{detail}})) || ($statement && !grep(/^\Q$statement\E$/, @{$error_info{$curdb}{$q}{statement}})) )
 		{
 			push(@{$error_info{$curdb}{$q}{date}},      $date);
 			push(@{$error_info{$curdb}{$q}{detail}},    $detail);
@@ -20533,10 +20533,10 @@ sub highlight_code {
   # if the token is not a keyword, an open parenthesis or a comment
 	if (
 		(
-			   $self->_is_function( $token, $last_token, $next_token )
+		   $self->_is_function( $token, $last_token, $next_token )
 			&& $next_token eq '('
 		)
-		|| (   !$self->_is_keyword( $token, $next_token, $last_token )
+		|| (   not $self->_is_keyword( $token, $next_token, $last_token )
 			&& $next_token ne '('
 			&& $token ne '('
 			&& not $self->_is_comment($token) )

t/02_basics.t

@@ -44,7 +44,7 @@ $ret = `perl pgbadger -q --outdir '.' -o $TEXT -o $JSON -o - -x json $LOG > t/re
 my $ret2 = `stat --printf='%s' t/ret.json $TEXT $JSON`;
 chomp($ret);
 chomp($ret2);
-ok( $? == 0 && $ret2 eq '13518815900135188', "Multiple output format '$ret2' = '13518815900135188'");
+ok( $? == 0 && $ret2 eq '13545016004135450', "Multiple output format '$ret2' = '13545016004135450'");
 
 `perl pgbadger -q -o /tmp/syslog.html $SYSLOG`;
 $ret = `perl pgbadger -q -o - $SYSLOG`;

t/03_consistency.t

@@ -38,7 +38,7 @@ ok( $json_ref->{pgb_session_info}{chronos}{20180912}{16}{count} == 63943, "pgBou
 
 $ret = `ls -la $OUT | awk '{print \$5}'`;
 chomp($ret);
-ok( $ret == 230257, "Consistent pgbouncer reports $ret != 230257");
+ok( $ret == 230561, "Consistent pgbouncer reports $ret != 230561");
 
 `rm -f $OUT`;