From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 18 Oct 2020 13:03:40 +0000 (-0700)
Subject: remove 'map' from sub 'copy_token_as_type' for efficiency
X-Git-Tag: 20201001.03~65
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=883ca75991e4001679d6549b3176b479ec9e4d19;p=perltidy.git

remove 'map' from sub 'copy_token_as_type' for efficiency
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 0e6edec5..be46c90e 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -5315,13 +5315,13 @@ sub copy_token_as_type {
         );
     }
 
-    my $rnew_token = [ map { $_ } @{$rold_token} ];
-    $rnew_token->[_TYPE_]                  = $type;
-    $rnew_token->[_TOKEN_]                 = $token;
-    $rnew_token->[_BLOCK_TYPE_]            = '';
-    $rnew_token->[_CONTAINER_ENVIRONMENT_] = '';
-    $rnew_token->[_TYPE_SEQUENCE_]         = '';
-    return $rnew_token;
+    my @rnew_token = @{$rold_token};
+    $rnew_token[_TYPE_]                  = $type;
+    $rnew_token[_TOKEN_]                 = $token;
+    $rnew_token[_BLOCK_TYPE_]            = '';
+    $rnew_token[_CONTAINER_ENVIRONMENT_] = '';
+    $rnew_token[_TYPE_SEQUENCE_]         = '';
+    return \@rnew_token;
 }
 
 sub Debug_dump_tokens {