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 0e6edec5a8d9380c1420f84e5da9f8d2b87dc4d9..be46c90e1d818a65aeb36f6b6dc5cf605bd9fb52 100644 (file)
--- 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 {