From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 5 Feb 2023 16:18:28 +0000 (-0800)
Subject: initialize global var $controlled_comma_style
X-Git-Tag: 20230309~38
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=07194194f616036da1dd4b8604181997dbaf2405;p=perltidy.git

initialize global var $controlled_comma_style
---

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();