From 625d25004ffc21e710a03ca8eecd60eea1ae51a1 Mon Sep 17 00:00:00 2001
From: Ji-Hyeon Gim <potatogim@potatogim.net>
Date: Thu, 29 Oct 2020 13:56:08 +0900
Subject: [PATCH] fix exit status for assert-tidy/untidy options

Signed-off-by: Ji-Hyeon Gim <potatogim@potatogim.net>
---
 lib/Perl/Tidy.pm | 2 ++
 1 file changed, 2 insertions(+)

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++;
                 }
             }
 
-- 
2.39.5