From bba4b1996a77b71d57050603fe07f6b1b14dbe9f Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Fri, 19 Jan 2024 16:42:28 -0800 Subject: [PATCH] fix minor issue flagged by PC --- lib/Perl/Tidy/Logger.pm | 2 +- lib/Perl/Tidy/VerticalAligner.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Perl/Tidy/Logger.pm b/lib/Perl/Tidy/Logger.pm index 931c7674..27722cbf 100644 --- a/lib/Perl/Tidy/Logger.pm +++ b/lib/Perl/Tidy/Logger.pm @@ -105,7 +105,7 @@ sub new { _complaint_count => 0, _is_encoded_data => $is_encoded_data, _saw_code_bug => -1, # -1=no 0=maybe 1=for sure - _saw_brace_error => 0, + _saw_brace_error => 0, _output_array => [], _input_stream_name => $input_stream_name, _filename_stamp => $filename_stamp, diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm index ea68bccf..c6ea852c 100644 --- a/lib/Perl/Tidy/VerticalAligner.pm +++ b/lib/Perl/Tidy/VerticalAligner.pm @@ -5063,7 +5063,7 @@ sub split_field { # find the = in the text my $pos_equals = index( $field, '=' ); - return 0 unless ( $pos_equals >= 0 ); + return 0 if ( $pos_equals < 0 ); # be sure there are no other '=' in the pattern my $equals_count = ( $pat1 =~ tr/=/=/ ); -- 2.39.5