added some debug code

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index b5cb7b9f8b291c8f7c0e5bcfa45e2ad8321d00d3..023eee556040e7c17a36b6dac918ea8322e5511a 100644 (file)
--- 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;