From ef0e8a1c76bef9a5bfe7774cb16976142b3a81af Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 6 Apr 2020 19:07:52 -0700
Subject: [PATCH] added some debug code

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

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index b5cb7b9f..023eee55 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -1317,6 +1317,9 @@ EOM
                             $diagnostics_object->write_diagnostics(
                                 $convergence_log_message)
                               if $diagnostics_object;
+
+			    # Uncomment to search for blinking states
+                	    # Warn( "$display_name: blinking; iter $iter same as for $saw_md5{$digest}\n" );
                         }
                         else {
                             $convergence_log_message = <<EOM;
-- 
2.39.5