From 95213a0f908fa6abc96a63453c3daa6a9361d28e Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
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