From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 7 Apr 2020 02:07:52 +0000 (-0700)
Subject: added some debug code
X-Git-Tag: 20200619~99
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ef0e8a1c76bef9a5bfe7774cb16976142b3a81af;p=perltidy.git

added some debug code
---

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;