fix spacing when deleting arrows

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 42d3f20e844c49bc282270881688233679af7b4b..2867fd850e6e57cd8288c64238d970d7b40663fb 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -11109,6 +11109,7 @@ sub respace_tokens_inner_loop {
                     }
                     else {
                         $self->delete_interbracket_arrow();
+                        $rwhitespace_flags->[$KK] = WS_NO;
                     }
                 }
             }