From 71fdee3276d18650f74c37b3c22237f737b9e329 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 13 Oct 2020 06:42:39 -0700
Subject: [PATCH] removed unused code

---
 lib/Perl/Tidy/Formatter.pm | 19 -------------------
 1 file changed, 19 deletions(-)

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 193074bf..53f84cab 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -2099,18 +2099,6 @@ sub set_whitespace_flags {
         #      -data => $data;
         if ( $ws == 0 && $input_line_no != $last_input_line_no ) { $ws = 1 }
 
-        if (   ( $ws == 0 )
-            && $j > 0
-            && $j < $jmax
-            && ( $last_type !~ /^[Zh]$/ ) )
-        {
-
-            # If this happens, we have a non-fatal but undesirable
-            # hole in the above rules which should be patched.
-            write_diagnostics(
-                "WS flag is zero for tokens $last_token $token\n");
-        }
-
         $rwhitespace_flags->[$j] = $ws;
 
         DEBUG_WHITE && do {
@@ -10802,13 +10790,6 @@ sub break_equals {
                 # do any special checks for it
                 if ( $n == $nmax ) {
 
-                    # FIXME: this test does no harm but should not really be
-                    # needed now and can be removed after verification with
-                    # testing.
-                    next
-                      if ( $type_ibeg_2 eq ';'
-                        && $rOpts_break_at_old_semicolon_breakpoints );
-
                     # a terminal '{' should stay where it is
                     # unless preceded by a fat comma
                     next if ( $type_ibeg_2 eq '{' && $type_iend_1 ne '=>' );
-- 
2.39.5