| Subject: | The only example in POD doesn't work! |
use Encode;
use Encode::DoubleEncodedUTF8;
my $string = "\x{5bae}";
my $bytes = encode_utf8("\x{5bae}");
my $dodgy_utf8 = $string . $bytes; # $bytes is now double encoded
my $fixed = decode("utf-8-de", $dodgy_utf8); # "\x{5bae}\x{5bae}"
This example doesn't work.
"Cannot decode string with wide characters at <...>/Perl/lib/Encode.pm
line 166."
This is perl, v5.8.8 built for MSWin32-x86-multi-thread