From ce27e2ef753ceb532fe8795b756626a8c5891bbc Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 26 May 2023 15:05:50 -0700
Subject: [PATCH] optimization

---
 lib/Perl/Tidy/Formatter.pm | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 5a1ccd2c..c812b9b9 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -26526,8 +26526,25 @@ sub convey_batch_to_vertical_aligner {
     # ----------------------------------------------------------
     # define the vertical alignments for all lines of this batch
     # ----------------------------------------------------------
-    my $rline_alignments =
-      $self->make_vertical_alignments( $ri_first, $ri_last );
+    my $rline_alignments;
+
+    if ( !$max_index_to_go ) {
+
+        # Optional shortcut for single token ...
+        # = [ [ $rtokens, $rfields, $rpatterns, $rfield_lengths ] ];
+        $rline_alignments = [
+            [
+                [],
+                [ $tokens_to_go[0] ],
+                [ $types_to_go[0] ],
+                [ $summed_lengths_to_go[1] - $summed_lengths_to_go[0] ],
+            ]
+        ];
+    }
+    else {
+        $rline_alignments =
+          $self->make_vertical_alignments( $ri_first, $ri_last );
+    }
 
     # ----------------------------------------------
     # loop to send each line to the vertical aligner
-- 
2.39.5