p5pRT
commented
11 years ago From michael@negativespace.net
Created by michael@negativespace.net
IO::File->open() isn't affected by use open(:std :utf8). I understand that use open() is lexical in scope\, but IO::File's open could at least present a warning. And if that's not possible the documentation for IO::File should be changed.
Schwern suggests this is related to autodie\, and can be fixed in a similar manner. If it cannot be fixed\, then an error message or warning would be very welcome (and would have saved a great deal of frustration).
See also:
http://stackoverflow.com/questions/14595624/perls-iofile-and-use-open-qwutf8/14595721
https://rt.cpan.org/Public/Bug/Display.html?id=54777
Here is a test case:
#!/usr/local/bin/perl
use utf8; use v5.16; use strict; use warnings; use warnings qw(FATAL utf8); use diagnostics; use open qw(:std :utf8); use charnames qw(:full :short);
use Test::More tests => 3;
my $str = "Hello ȓ (r-caret)";
eval { open(my $fh\, '\<'\, \$str); print while ($_ = $fh->getc()); close($fh); pass("read utf from opened string"); }; if ($@) { fail("read utf8 from opened() string"); }
eval { use IO::File; my $fh = IO::File->new(); $fh->open(\$str\, '\<'); print while ($_ = $fh->getc()); $fh->close(); pass("read utf8 from IO::File->open() string"); }; if ($@) { fail("read utf8 from IO::File->open() string"); }
eval { use IO::File; my $fh = IO::File->new(); $fh->open(\$str\, '\<:encoding(UTF-8)'); print while ($_ = $fh->getc()); $fh->close(); pass("read utf8 from IO::File->open() string with encoding"); }; if ($@) { fail("read utf8 from IO::File->open() string with encoding"); }
Migrated from rt.perl.org#116599 (status was 'open')
Searchable as RT116599$