From 95213a0f908fa6abc96a63453c3daa6a9361d28e Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Mon, 13 Dec 2021 11:31:50 -0800 Subject: [PATCH] VerticalAligner removes recoverable spaces at flush --- lib/Perl/Tidy/VerticalAligner.pm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm index cbed1fc6..3e7513f8 100644 --- a/lib/Perl/Tidy/VerticalAligner.pm +++ b/lib/Perl/Tidy/VerticalAligner.pm @@ -1513,6 +1513,12 @@ sub _flush_group_lines { ); } + # Let the formatter know that this object has been processed and any + # recoverable spaces have been handled. This is needed for setting the + # closing paren location in -lp mode. + my $object = $rgroup_lines->[0]->get_indentation(); + if ( ref($object) ) { $object->set_recoverable_spaces(0) } + $self->initialize_for_new_group(); return; } -- 2.39.5