"print $!" prints bad characters

[olegwtf]

use strict;
use utf8::all;
use IO::Socket;

unless (IO::Socket::INET->new("localhost:1111")) {
        print $!, "\n";
}

On my system this program prints unreadable characters Ð Ñоединении оÑказано
My locale is ru_RU.UTF-8. At the same time die $!, "\n"; prints correct characters.

[Leont]

This sounds to me not like a bug in utf8::all but in perl itself. Perl has no idea it should interpret $! as UTF-8 or not, so decides to treat it like latin1.

[olegwtf]

Yes it looks more like Perl bug, because smth like perl -CS -MErrno -le '$!=Errno::ETIMEDOUT; print $!' has same behaviour.

Perl has no idea it should interpret $! as UTF-8 or not, so decides to treat it like latin1.
But I wondering why output looks correct when using warn or die?

[doherty]

@Leont: Is there a workaround we could use for Perl's global variables like $!? Also, do you know if this bug has been reported to the tracker for core?

[Leont]

I think I forgot to report it, and I can't find it on rt either. I don't think there's an easy way of dealing with this, other than decoding $! explicitly

[doherty]

I opened https://rt.perl.org/rt3/Ticket/Display.html?id=112208

[Leont]

Is there a workaround we could use for Perl's global variables like $!?

Actually, I'm pretty sure it'd be possible to monkey-patch $! to lexically do the right thing. I've done something similar once for $< and friends.

[doherty]

If you can dig it up, that could be useful for perls that don't have this issue fixed.

[Leont]

You can find it at https://github.com/Leont/utf8-errno. I haven't tested it at all beyond "it compiles" though.