diff options
| author | Karl Williamson <khw@cpan.org> | 2015-01-14 11:01:21 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-01-14 11:18:19 -0700 |
| commit | d1cef54a570d5ed7b6b443b65984965167a0a3ef (patch) | |
| tree | cacd04e4c3a83b3e93a9a1bfda15d1a2015129da /lib/charnames.t | |
| parent | 7bc44f185b5a15a31bcd895d928f90a19774fadd (diff) | |
| download | perl-d1cef54a570d5ed7b6b443b65984965167a0a3ef.tar.gz | |
t/charset_tools.pl: Improve function names
'latin1_to_native' and 'native_to_latin1' actually operate on all code
points, not just the ranges implied by their names. This commit changes
the names to reflect that, to 'uni_to_native' and 'native_to_uni'.
The old names have only been available since 5.21, so there is no
backcompat issue.
Diffstat (limited to 'lib/charnames.t')
| -rw-r--r-- | lib/charnames.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/charnames.t b/lib/charnames.t index e11581183b..cd87350bfe 100644 --- a/lib/charnames.t +++ b/lib/charnames.t @@ -733,7 +733,7 @@ is($_, 'foobar', 'Verify charnames.pm doesnt clobbers $_'); my $names = do "unicore/Name.pl"; ok(defined $names, "Verify can read 'unicore/Name.pl'"); -my $non_ascii = native_to_latin1($names) =~ tr/\0-\177//c; +my $non_ascii = native_to_uni($names) =~ tr/\0-\177//c; ok(! $non_ascii, "Verify all official names are ASCII-only"); # Verify that charnames propagate to eval("") |