From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 20 Apr 2020 02:33:45 +0000 (-0700)
Subject: removed some unused coding
X-Git-Tag: 20200619~84
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9c146d98056e4cba39d2c1ac752bda96e84ecae4;p=perltidy.git

removed some unused coding
---

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 {