fixed assert-untidy

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 4cd939c0fc0cf4147cf8efc3aa9759bd0f98df34..7c3dca83d05c9e2a407f60458c72f14009ac9b04 100644 (file)
--- 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"
                     );