From 9c146d98056e4cba39d2c1ac752bda96e84ecae4 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Sun, 19 Apr 2020 19:33:45 -0700 Subject: [PATCH] removed some unused coding --- lib/Perl/Tidy/Formatter.pm | 29 ----------------------------- 1 file changed, 29 deletions(-) diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm index efbbc4e5..5c807552 100644 --- a/lib/Perl/Tidy/Formatter.pm +++ b/lib/Perl/Tidy/Formatter.pm @@ -7102,35 +7102,6 @@ EOM return; } - { - my @saved_token; - - sub save_current_token { - - @saved_token = ( - $block_type, $ci_level, - $container_environment, $container_type, - $in_continued_quote, $level, - $no_internal_newlines, $slevel, - $token, $type, - $type_sequence, $Ktoken_vars, - ); - return; - } - - sub restore_current_token { - ( - $block_type, $ci_level, - $container_environment, $container_type, - $in_continued_quote, $level, - $no_internal_newlines, $slevel, - $token, $type, - $type_sequence, $Ktoken_vars, - ) = @saved_token; - return; - } - } - # Routine to place the current token into the output stream. # Called once per output token. sub store_token_to_go { -- 2.39.5