diff options
| author | Tony Cook <tony@develop-help.com> | 2014-06-10 16:18:34 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2014-06-18 10:47:30 +1000 |
| commit | c30a0cf2fdbe81e28e7b5cd87a818bee7ac46dc8 (patch) | |
| tree | 8a3b127f796ff5251d3622f99d0271eae5109cb3 /regen/charset_translations.pl | |
| parent | e0dcdb0a6a47e7be80138333509b94c176bdfbe7 (diff) | |
| download | perl-c30a0cf2fdbe81e28e7b5cd87a818bee7ac46dc8.tar.gz | |
avoid copying the while ebcidic mapping to the stack calling get_a2n()
from 41.6sec to 34.1sec
get_a2n() is called 181540 times by __uni_latin1() which in most cases
doesn't use the whole table. Other callers tend to use the whole
table, so make a copy.
Diffstat (limited to 'regen/charset_translations.pl')
| -rw-r--r-- | regen/charset_translations.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/charset_translations.pl b/regen/charset_translations.pl index 0ca310ee0e..4ee27a033e 100644 --- a/regen/charset_translations.pl +++ b/regen/charset_translations.pl @@ -112,7 +112,7 @@ sub get_a2n($) { die "Unknown character set '$charset'"; } - return @{$ebcdic_translations{$charset}}; + return $ebcdic_translations{$charset}; } sub get_I8_2_utf($) { |