From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 17 Apr 2022 13:52:52 +0000 (-0700)
Subject: make () align with qw in a 'use' statement (git #93)
X-Git-Tag: 20220217.04~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0916c09ffd287bc7c9ab2f26ef4802a438f40a19;p=perltidy.git

make () align with qw in a 'use' statement (git #93)
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 90299523..7eb923c4 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -22873,6 +22873,14 @@ EOM
                                 $alignment_type = "";
                             }
                         }
+
+                        # make () align with qw in a 'use' statement (git #93)
+                        if (   $tokens_to_go[0] eq 'use'
+                            && $types_to_go[0] eq 'k'
+                            && $inext_to_go[$i] == $i + 1 )
+                        {
+                            $alignment_type = 'q';
+                        }
                     }
 
                     # be sure the alignment tokens are unique