Fix uninitialized variable error. Thanks to Nhyalgotphores for the report.

darold · darold · commit eefdb07009cd · 2026-02-05T20:53:14.000+01:00
diff --git a/lib/pgFormatter/Beautify.pm b/lib/pgFormatter/Beautify.pm
@@ -551,6 +551,7 @@ sub highlight_code {
 			&& !$self->_is_comment($token) )
 	  )
 	{
+		exit 3;
 		if ( $self->{'uc_functions'} == 1 ) {
 			$token = '<span class="kw2_l">' . $token . '</span>';
 		}
@@ -2468,7 +2469,7 @@ sub beautify {
 				and $self->_is_comment( $self->_next_token ) );
 			$add_newline = 0
 			  if (  defined $self->_next_token
-				and $self->_next_token =~ /KEYWCONST/
+				and $self->_next_token =~ /KEYWCONST/ and $#{$self->{'_tokens'}} >= 1
 				and $self->{'_tokens'}[1] =~ /^(LANGUAGE|STRICT)$/i );
 			$add_newline = 1 if ( $self->{'_is_in_truncate'} );
 			  if (

Original file line number	Diff line number	Diff line change
`@@ -551,6 +551,7 @@ sub highlight_code {`
`551`	`551`	`&& !$self->_is_comment($token) )`
`552`	`552`	`)`
`553`	`553`	`{`
	`554`	`+ exit 3;`
`554`	`555`	`if ( $self->{'uc_functions'} == 1 ) {`
`555`	`556`	`$token = '<span class="kw2_l">' . $token . '</span>';`
`556`	`557`	`}`
`@@ -2468,7 +2469,7 @@ sub beautify {`
`2468`	`2469`	`and $self->_is_comment( $self->_next_token ) );`
`2469`	`2470`	`$add_newline = 0`
`2470`	`2471`	`if ( defined $self->_next_token`
`2471`		`- and $self->_next_token =~ /KEYWCONST/`
	`2472`	`+ and $self->_next_token =~ /KEYWCONST/ and $#{$self->{'_tokens'}} >= 1`
`2472`	`2473`	`and $self->{'_tokens'}[1] =~ /^(LANGUAGE\|STRICT)$/i );`
`2473`	`2474`	`$add_newline = 1 if ( $self->{'_is_in_truncate'} );`
`2474`	`2475`	`if (`