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 cda2e9488b54378f792f635d7187917c80405ace..4ef250244985c1aa3b0c3e6fa9ba9cca65f49f83 100644 (file)
--- 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 62597ecb758195893aa47d3a39611f690071b4c7..ff1649131fc72e419278eb44c95582f3b947c7a7 100644 (file)
--- 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;