From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 26 May 2023 22:05:50 +0000 (-0700)
Subject: optimization
X-Git-Tag: 20230309.03~9
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ce27e2ef753ceb532fe8795b756626a8c5891bbc;p=perltidy.git

optimization
---

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