From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 7 Oct 2021 23:15:41 +0000 (-0700)
Subject: fix issue c085, very rare fault with -lp
X-Git-Tag: 20211029~31
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=19e8d36715b45ffbfd1df67182f9b6ec5c4bece4;p=perltidy.git

fix issue c085, very rare fault with -lp
---

diff --git a/lib/Perl/Tidy/IndentationItem.pm b/lib/Perl/Tidy/IndentationItem.pm
index fc9a1258..bafa3f02 100644
--- a/lib/Perl/Tidy/IndentationItem.pm
+++ b/lib/Perl/Tidy/IndentationItem.pm
@@ -119,7 +119,12 @@ sub permanently_decrease_available_spaces {
       ( $available_spaces > $spaces_needed )
       ? $spaces_needed
       : $available_spaces;
-    $item->decrease_available_spaces($deleted_spaces);
+
+    # Fixed for c085; a zero value must remain unchanged unless the closed
+    # flag has been set.
+    my $closed = $item->get_closed();
+    $item->decrease_available_spaces($deleted_spaces)
+      unless ( $available_spaces == 0 && $closed < 0 );
     $item->decrease_SPACES($deleted_spaces);
     $item->set_recoverable_spaces(0);