From c2fd286dcad02e98217c5d115108913ebbf0d39c Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 5 Sep 2019 15:55:27 -0700
Subject: [PATCH] fixed assert-untidy

---
 lib/Perl/Tidy.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 4cd939c0..7c3dca83 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -1267,7 +1267,7 @@ EOM
             }
             if ( $rOpts->{'assert-untidy'} ) {
                 my $digest_output = $md5_hex->($buf);
-                if ( $digest_output ne $digest_input ) {
+                if ( $digest_output eq $digest_input ) {
                     $logger_object->warning(
 "assertion failure: '--assert-untidy' is set but output equals input\n"
                     );
-- 
2.39.5