fix minor issue flagged by PC

diff --git a/lib/Perl/Tidy/Logger.pm b/lib/Perl/Tidy/Logger.pm
index 931c7674900c412291588ec473f6faff8f54de5f..27722cbf540445dec83455bb0248a82f1a28580d 100644 (file)
--- 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 ea68bccf778ebb2690de89e6026b6e8a19e97aae..c6ea852c8b17cca30828627fea4125ecf81b37b2 100644 (file)
--- 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/=/=/ );