perl-unicode

Re: :encoding() layer modifies read-only scalars

2004-11-28 02:30:06
* Bjoern Hoehrmann wrote:
 Enocde 2.08, PerlIO::scalar 0.02, ActivePerl 5.8.2, 

 #!perl -w
 use strict;
 use warnings;
 use Encode;
 
 my $string = encode(UTF16 => "");
 
 for (qw/UTF-8 UTF-16LE UTF-16BE UTF-32LE UTF-32BE/)
 {
   my $backup = $string;
   open F, "<:encoding($_)", \$backup;
   my $char;
   read F, $char, 1, 0;
   close F;
 
   die unless $backup eq $string;
 }
 
Gives

 utf8 "\xFE" does not map to Unicode at ... line 13.
 utf8 "\xFF" does not map to Unicode at ... line 13.
 Unicode character 0xfffe is illegal at ... line 13.
 Died at ... line 16.

Perl ActivePerl 5.8.4 and the same PerlIO::scalar/Encode the result is

  utf8 "\xFE" does not map to Unicode at 1.pl line 13.
  Unicode character 0xfffe is illegal at 1.pl line 13.
  Died at 1.pl line 16.

Which is still not what I would expect...
-- 
Björn Höhrmann · mailto:bjoern(_at_)hoehrmann(_dot_)de · 
http://bjoern.hoehrmann.de
Weinh. Str. 22 · Telefon: +49(0)621/4309674 · http://www.bjoernsworld.de
68309 Mannheim · PGP Pub. KeyID: 0xA4357E78 · http://www.websitedev.de/ 

<Prev in Thread] Current Thread [Next in Thread>