From 07194194f616036da1dd4b8604181997dbaf2405 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 5 Feb 2023 08:18:28 -0800
Subject: [PATCH] initialize global var $controlled_comma_style

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

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 37d61b28..501ddbc6 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -328,9 +328,11 @@ my (
     %line_up_parentheses_control_hash,
     $line_up_parentheses_control_is_lxpl,
 
-    %trailing_comma_rules,
     $controlled_comma_style,
 
+    # initialized in sub 'initialize_trailing_comma_rules'
+    %trailing_comma_rules,
+
     # regex patterns for text identification.
     # Most are initialized in a sub make_**_pattern during configuration.
     # Most can be configured by user parameters.
@@ -1317,6 +1319,8 @@ sub check_options {
     # and to configure the control hashes to them.
     $rOpts = shift;
 
+    $controlled_comma_style = 0;
+
     initialize_whitespace_hashes();
     initialize_bond_strength_hashes();
 
-- 
2.39.5