From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 4 Apr 2020 00:38:10 +0000 (-0700)
Subject: fixed problem with reporting convergence on first step
X-Git-Tag: 20200619~102
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=992ed2a6a63f74788c787d787b0d478bcc586fe1;p=perltidy.git

fixed problem with reporting convergence on first step
---

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index f2b5094f..b5cb7b9f 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -1029,7 +1029,7 @@ EOM
         # starting MD5 sum for convergence test is evaluated after any prefilter
         if ($do_convergence_test) {
             my $digest = $md5_hex->($buf);
-            $saw_md5{$digest} = 1;
+            $saw_md5{$digest} = 0;
         }
 
         $source_object = Perl::Tidy::LineSource->new( \$buf, $rOpts,
@@ -1298,7 +1298,7 @@ EOM
                 elsif ($do_convergence_test) {
 
                     my $digest = $md5_hex->($sink_buffer);
-                    if ( !$saw_md5{$digest} ) {
+                    if ( !defined($saw_md5{$digest}) ) {
                         $saw_md5{$digest} = $iter;
                     }
                     else {