From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 3 Oct 2021 23:19:04 +0000 (-0700)
Subject: fix b1221, -vmll issue where max line length could be exceeded
X-Git-Tag: 20211029~42
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f129fd126c1df2bf6faafa6e43e3eb4161c080ec;p=perltidy.git

fix b1221, -vmll issue where max line length could be exceeded
---

diff --git a/dev-bin/run_convergence_tests.pl.data b/dev-bin/run_convergence_tests.pl.data
index cda2e948..4ef25024 100644
--- a/dev-bin/run_convergence_tests.pl.data
+++ b/dev-bin/run_convergence_tests.pl.data
@@ -7500,6 +7500,29 @@ print$msg,
 --continuation-indentation=1
 --maximum-line-length=12
 
+==> b1221.in <==
+# S1
+ ok(
+             defined(
+                $pdf->{'ROOT'}->{'Resources'}->{'Font'}->{$fk}
+             ));
+
+# S2
+ ok(defined($pdf->{'ROOT'}->{'Resources'}->{'Font'}->{$fk}));
+
+==> b1221.par <==
+--noadd-whitespace
+--continuation-indentation=10
+--delete-old-whitespace
+--extended-continuation-indentation
+--indent-columns=1
+--line-up-parentheses
+--maximum-line-length=59
+--stack-closing-paren
+--variable-maximum-line-length
+--vertical-tightness=1
+--weld-nested-containers
+
 ==> b1224.in <==
 # S1
   return ( $self->_testStrand ( $other, $so )
diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 62597ecb..ff164913 100644
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -4965,6 +4965,7 @@ sub get_output_line_number {
                 }
 
                 if ( $gap >= 0 && defined($seqno_beg) ) {
+                    $maximum_line_length   = $cached_line_maximum_length;
                     $leading_string        = $cached_line_text . ' ' x $gap;
                     $leading_string_length = $cached_line_text_length + $gap;
                     $leading_space_count   = $cached_line_leading_space_count;