From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 13 Dec 2021 19:31:50 +0000 (-0800)
Subject: VerticalAligner removes recoverable spaces at flush
X-Git-Tag: 20211029.04~10
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=95213a0f908fa6abc96a63453c3daa6a9361d28e;p=perltidy.git

VerticalAligner removes recoverable spaces at flush
---

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;
 }