diff options
| author | Karl Williamson <khw@cpan.org> | 2014-07-07 16:59:19 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2014-10-21 09:26:50 -0600 |
| commit | 98c62be8f6a8b6ad8f0782b33467fabcfe191465 (patch) | |
| tree | f4baa54dad94e3111fa59079fd90c9c8b617da5a /t/charset_tools.pl | |
| parent | 92c0a900a3381af22f6d14091dbaffaa47ad592c (diff) | |
| download | perl-98c62be8f6a8b6ad8f0782b33467fabcfe191465.tar.gz | |
charset_tools.pl: Fix changed function name
The function has changed names, but this file did not get updated to
reflect that.
Diffstat (limited to 't/charset_tools.pl')
| -rw-r--r-- | t/charset_tools.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/charset_tools.pl b/t/charset_tools.pl index 6abf90221c..6d70a37cab 100644 --- a/t/charset_tools.pl +++ b/t/charset_tools.pl @@ -29,7 +29,7 @@ sub latin1_to_native($) { return $string if $::IS_ASCII; my $output = ""; for my $i (0 .. length($string) - 1) { - $output .= chr(ord_latin1_to_native(ord(substr($string, $i, 1)))); + $output .= chr(utf8::unicode_to_native(ord(substr($string, $i, 1)))); } # Preserve utf8ness of input onto the output, even if it didn't need to be # utf8 |