diff options
| author | Karl Williamson <khw@cpan.org> | 2018-02-23 11:02:40 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2018-02-24 22:08:41 -0700 |
| commit | 82b1f6184ce0d08c1729e0b85f5109f539566be2 (patch) | |
| tree | 39048b00df6f70a59fab9d406fa93b8cf98f8866 /t | |
| parent | ce181bf6a62a81a3e78bd338f9e839b61964794c (diff) | |
| download | perl-82b1f6184ce0d08c1729e0b85f5109f539566be2.tar.gz | |
t/loc_tools.pl: 8859-16 is legit; 8859-0 isn't
This adjusts the loop boundaries looking for come common locale names.
It was failing to look for 8859-16; instead looking for latin0, 8859-0,
which don't exist
Diffstat (limited to 't')
| -rw-r--r-- | t/loc_tools.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/loc_tools.pl b/t/loc_tools.pl index 49bcc70596..db0bface64 100644 --- a/t/loc_tools.pl +++ b/t/loc_tools.pl @@ -307,7 +307,7 @@ sub find_locales ($;$) { my @Locale; _trylocale("C", $categories, \@Locale, $allow_incompatible); _trylocale("POSIX", $categories, \@Locale, $allow_incompatible); - foreach (0..15) { + foreach (1..16) { _trylocale("ISO8859-$_", $categories, \@Locale, $allow_incompatible); _trylocale("iso8859$_", $categories, \@Locale, $allow_incompatible); _trylocale("iso8859-$_", $categories, \@Locale, $allow_incompatible); |