From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 20 Jan 2024 00:42:28 +0000 (-0800)
Subject: fix minor issue flagged by PC
X-Git-Tag: 20230912.13~5
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=bba4b1996a77b71d57050603fe07f6b1b14dbe9f;p=perltidy.git

fix minor issue flagged by PC
---

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/=/=/ );