From 785ab6308022e42ef85c24c25f1997f03aa987b7 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Fri, 24 Apr 2020 06:44:59 -0700 Subject: [PATCH] removed redundant data initializations from BEGIN blocks --- lib/Perl/Tidy/Formatter.pm | 16 +++++++--------- lib/Perl/Tidy/Tokenizer.pm | 3 --- 2 files changed, 7 insertions(+), 12 deletions(-) diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm index b717e010..0d844136 100644 --- a/lib/Perl/Tidy/Formatter.pm +++ b/lib/Perl/Tidy/Formatter.pm @@ -391,15 +391,6 @@ BEGIN { @q = qw< } ) ] >; @is_closing_token{@q} = (1) x scalar(@q); - # Patterns for standardizing matches to block types for regular subs and - # anonymous subs. Examples - # 'sub process' is a named sub - # 'sub ::m' is a named sub - # 'sub' is an anonymous sub - # 'sub:' is a label, not a sub - # 'substr' is a keyword - $SUB_PATTERN = '^sub\s+(::|\w)'; - $ASUB_PATTERN = '^sub$'; } # whitespace codes @@ -6308,6 +6299,13 @@ sub make_closing_side_comment_list_pattern { sub make_sub_matching_pattern { + # Patterns for standardizing matches to block types for regular subs and + # anonymous subs. Examples + # 'sub process' is a named sub + # 'sub ::m' is a named sub + # 'sub' is an anonymous sub + # 'sub:' is a label, not a sub + # 'substr' is a keyword $SUB_PATTERN = '^sub\s+(::|\w)'; $ASUB_PATTERN = '^sub$'; diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm index 0677eeec..fac2f7bf 100644 --- a/lib/Perl/Tidy/Tokenizer.pm +++ b/lib/Perl/Tidy/Tokenizer.pm @@ -7890,9 +7890,6 @@ BEGIN { @q = qw(q qq qw qx qr s y tr m); @is_q_qq_qw_qx_qr_s_y_tr_m{@q} = (1) x scalar(@q); - @q = qw(sub); - @is_sub{@q} = (1) x scalar(@q); - @q = qw(package); @is_package{@q} = (1) x scalar(@q); -- 2.39.5