From: Ji-Hyeon Gim <potatogim@potatogim.net>
Date: Thu, 29 Oct 2020 04:56:08 +0000 (+0900)
Subject: fix exit status for assert-tidy/untidy options
X-Git-Tag: 20201001.03~29^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=625d25004ffc21e710a03ca8eecd60eea1ae51a1;p=perltidy.git

fix exit status for assert-tidy/untidy options

Signed-off-by: Ji-Hyeon Gim <potatogim@potatogim.net>
---

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index a3409914..adc88594 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -1528,6 +1528,7 @@ EOM
                     $logger_object->interrupt_logfile();
                     $logger_object->warning( $diff_msg . "\n" );
                     $logger_object->resume_logfile();
+                    $Warn_count++;
                 }
             }
             if ( $rOpts->{'assert-untidy'} ) {
@@ -1536,6 +1537,7 @@ EOM
                     $logger_object->warning(
 "assertion failure: '--assert-untidy' is set but output equals input\n"
                     );
+                    $Warn_count++;
                 }
             }