From 992ed2a6a63f74788c787d787b0d478bcc586fe1 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 3 Apr 2020 17:38:10 -0700
Subject: [PATCH] fixed problem with reporting convergence on first step

---
 lib/Perl/Tidy.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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 {
-- 
2.39.5