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 a34099142864018bb0856eb5f034c9a72993a91a..adc885943f7e435bb250967153561da4369fe6e3 100644 (file)
--- 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++;
                 }
             }