This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
charset_tools.pl: Fix changed function name
authorKarl Williamson <khw@cpan.org>
Mon, 7 Jul 2014 22:59:19 +0000 (16:59 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 21 Oct 2014 15:26:50 +0000 (09:26 -0600)
The function has changed names, but this file did not get updated to
reflect that.

t/charset_tools.pl

index 6abf902..6d70a37 100644 (file)
@@ -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