From ce0cca0dbf9c78ae441fbcbfc97f8b4ba657726e Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Tue, 24 Mar 2020 05:57:12 -0700 Subject: [PATCH] convert do_scan_sub() to named call --- lib/Perl/Tidy/Tokenizer.pm | 28 ++++++++++++++++++++-------- 1 file changed, 20 insertions(+), 8 deletions(-) diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm index 40f70123..8fd31f73 100644 --- a/lib/Perl/Tidy/Tokenizer.pm +++ b/lib/Perl/Tidy/Tokenizer.pm @@ -5614,9 +5614,15 @@ sub scan_id_do { if ( $is_sub{$id_scan_state} ) { ( $i, $tok, $type, $id_scan_state ) = do_scan_sub( - $input_line, $i, $i_beg, - $tok, $type, $rtokens, - $rtoken_map, $id_scan_state, $max_token_index + input_line => $input_line, + i => $i, + i_beg => $i_beg, + tok => $tok, + type => $type, + rtokens => $rtokens, + rtoken_map => $rtoken_map, + id_scan_state => $id_scan_state, + max_token_index => $max_token_index ); } @@ -6283,11 +6289,17 @@ sub scan_identifier_do { # $in_attribute_list, %saw_function_definition, # $statement_type - my ( - $input_line, $i, $i_beg, - $tok, $type, $rtokens, - $rtoken_map, $id_scan_state, $max_token_index - ) = @_; + my (%call_hash) = @_; + my $input_line = $call_hash{input_line}; + my $i = $call_hash{i}; + my $i_beg = $call_hash{i_beg}; + my $tok = $call_hash{tok}; + my $type = $call_hash{type}; + my $rtokens = $call_hash{rtokens}; + my $rtoken_map = $call_hash{rtoken_map}; + my $id_scan_state = $call_hash{id_scan_state}; + my $max_token_index = $call_hash{max_token_index}; + $id_scan_state = ""; # normally we get everything in one call my $subname = undef; my $package = undef; -- 2.39.5