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;
};
# Make STDOUT/STDERR UTF-8 aware so decoded Unicode (model output, tool
# 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;
binmode $_ => ':encoding(UTF-8)' for *STDIN, *STDOUT, *STDERR;
use File::Path qw(make_path); use POSIX qw(strftime); use Term::ReadLine;
use constant MAX_DEPTH => 5;
my $home = $ENV{HOME} || $ENV{USERPROFILE} || '.';