From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 5 Sep 2019 22:55:27 +0000 (-0700)
Subject: fixed assert-untidy
X-Git-Tag: 20190915~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c2fd286dcad02e98217c5d115108913ebbf0d39c;p=perltidy.git

fixed assert-untidy
---

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"
                     );