From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Wed, 18 Aug 2021 01:45:28 +0000 (-0700)
Subject: minor optimization
X-Git-Tag: 20210717.02~40
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b36840ccf1aa1c81d44726b32fa829cd2c48ee68;p=perltidy.git

minor optimization
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index ae44e4dd..4d289980 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -19372,7 +19372,7 @@ sub send_lines_to_vertical_aligner {
             $type_end_next  = $rLL->[$Kend_next]->[_TYPE_];
             $ljump = $rLL->[$Kbeg_next]->[_LEVEL_] - $rLL->[$Kend]->[_LEVEL_];
         }
-        else {
+        elsif ( !$is_block_comment ) {
 
             # Patch for git #51, a bare closing qw paren was not outdented
             # if the flag '-nodelete-old-newlines is set