updated utf-8 channel settings in Perl impls

2026-08-09 17:24:53 +03:00
parent accd1fc75c
commit d0c84d0204
2 changed files with 3 additions and 6 deletions
@@ -6,7 +6,7 @@ use strict; use warnings; use HTTP::Tiny; use JSON::PP; use POSIX qw(strftime);

 $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /^Use of uninitialized value \$err in numeric eq \(==\) at .*IO\/Socket\/IP\.pm line \d+/ };

-binmode(STDOUT, ':encoding(UTF-8)'); binmode(STDERR, ':encoding(UTF-8)'); binmode(STDIN, ':encoding(UTF-8)');
+binmode $_ => ':encoding(UTF-8)' for *STDIN, *STDOUT, *STDERR;

 $| = 1; # unbuffered output: live spinner, responsive prompt