From 071398706686389785e63df13da82db3efe0c1de Mon Sep 17 00:00:00 2001 From: Mathieu Arnold Date: Sun, 13 Jul 2025 12:17:55 +0200 Subject: databases/pgbadger: fix with Perl 5.42 + lint PR: 288020 --- databases/pgbadger/files/patch-pgbadger | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 databases/pgbadger/files/patch-pgbadger (limited to 'databases/pgbadger/files/patch-pgbadger') diff --git a/databases/pgbadger/files/patch-pgbadger b/databases/pgbadger/files/patch-pgbadger new file mode 100644 index 000000000000..f469e209e9ea --- /dev/null +++ b/databases/pgbadger/files/patch-pgbadger @@ -0,0 +1,22 @@ +fix Possible precedence problem between ! and string eq + +--- pgbadger.orig 2025-07-13 10:08:32 UTC ++++ pgbadger +@@ -20462,7 +20462,7 @@ sub highlight_code + # lowercase/uppercase known functions or words followed by an open parenthesis + # if the token is not a keyword, an open parenthesis or a comment + if (($self->_is_function( $token, $last_token, $next_token ) && $next_token eq '(') +- || (!$self->_is_keyword( $token, $next_token, $last_token ) && !$next_token eq '(' ++ || (!$self->_is_keyword( $token, $next_token, $last_token ) && $next_token ne '(' + && $token ne '(' && !$self->_is_comment( $token )) ) { + if ($self->{ 'uc_functions' } == 1) { + $token = '' . $token . ''; +@@ -23062,7 +23062,7 @@ sub _add_token + # if the token is not a keyword, an open parenthesis or a comment + my $fct = $self->_is_function( $token, $last_token, $next_token ) || ''; + if (($fct and $next_token eq '(' and defined $last_token and uc($last_token) ne 'CREATE') +- or (!$self->_is_keyword( $token, $next_token, $last_token ) and !$next_token eq '(' ++ or (!$self->_is_keyword( $token, $next_token, $last_token ) and $next_token ne '(' + and $token ne '(' and !$self->_is_comment( $token )) ) + { + $token =~ s/$fct/\L$fct\E/i if ( $self->{ 'uc_functions' } == 1 ); -- cgit v1.2.3