diff options
| author | Tony Cook <tony@develop-help.com> | 2019-07-23 10:45:04 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2019-07-23 11:15:56 +1000 |
| commit | f670c2bb3dd57802df85a5c454bf77c8a891846e (patch) | |
| tree | 002baca356eaf8995577d5922f5fb04b2319deac /t | |
| parent | 43e5ab2e34fe55efd182c925309a4cf5ff2ec540 (diff) | |
| download | perl-f670c2bb3dd57802df85a5c454bf77c8a891846e.tar.gz | |
avoid synthesizing locale names with newlines in them
while debugging some strange behaviour on Win32 I tried dumping
locale names in _trylocale() and saw names go past like:
sv_fi.15
<-- newline added at the end
sv_fi.15
.UTF-8
sv_fi.15
.65001
sv_fi.15
.ACP
sv_fi.15
.OCP
sv_fi.15
.1252
Diffstat (limited to 't')
| -rw-r--r-- | t/loc_tools.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/loc_tools.pl b/t/loc_tools.pl index beebd98d88..86d694d09d 100644 --- a/t/loc_tools.pl +++ b/t/loc_tools.pl @@ -424,6 +424,7 @@ sub find_locales ($;$) { push @Data, <DATA>; close DATA; foreach my $line (@Data) { + chomp $line; my ($locale_name, $language_codes, $country_codes, $encodings) = split /:/, $line; _my_diag(__FILE__ . ":" . __LINE__ . ": Unexpected syntax in '$line'") |