From 0916c09ffd287bc7c9ab2f26ef4802a438f40a19 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 17 Apr 2022 06:52:52 -0700
Subject: [PATCH] make () align with qw in a 'use' statement (git #93)

---
 lib/Perl/Tidy/Formatter.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

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
-- 
2.39.5