luxferre/bantam
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

updated utf-8 channel settings in Perl impls

Browse Source
This commit is contained in:
Luxferre
2026-08-09 17:24:53 +03:00
parent accd1fc75c
commit d0c84d0204
2 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bantam.pl
+2 -5
View File
@@ -15,12 +15,9 @@ $SIG{__WARN__} = sub {
warn $m; warn $m;
}; };
# Make STDOUT/STDERR UTF-8 aware so decoded Unicode (model output, tool binmode $_ => ':encoding(UTF-8)' for *STDIN, *STDOUT, *STDERR;
# results) prints cleanly instead of triggering "Wide character in print".
binmode(STDOUT, ':encoding(UTF-8)');
binmode(STDERR, ':encoding(UTF-8)');
use File::Path qw(make_path); use POSIX qw(strftime); use Term::ReadLine;
use File::Path qw(make_path); use POSIX qw(strftime); use Term::ReadLine;
use constant MAX_DEPTH => 5; use constant MAX_DEPTH => 5;
my $home = $ENV{HOME} || $ENV{USERPROFILE} || '.'; my $home = $ENV{HOME} || $ENV{USERPROFILE} || '.';
mb
+1 -1
View File
@@ -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+/ }; $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 $| = 1; # unbuffered output: live spinner, responsive prompt