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

perl fixes

Browse Source
This commit is contained in:
Luxferre
2026-08-09 07:11:36 +00:00
parent 6bd56f0d5e
commit 08705871dd
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bantam.pl
+3 -1
View File
@@ -109,7 +109,8 @@ sub llm {
if ($i <= $#fib) { print c("[network error: $err, retrying in ${dly}s...]", 31), "\n"; sleep($dly); next; }
die "[network error: $err]\n";
} else {
my ($content, $reas, %tcs, @order, $rh, $ch, $buf) = ('', '', (), (), 0, 0, '');
my ($content, $reas, $rh, $ch, $buf) = (q{}, q{}, 0, 0, q{});
my (%tcs, @order);
my $res = $http->request('POST', $url, {
headers => \%h, content => $body,
data_callback => sub {
@@ -322,6 +323,7 @@ sub main {
print c("Bantam Agent ready", 1, 32), c(" (Ctrl+J = new line)", 2), "\n";
print c("endpoint: $cfg->{endpoint} model: $cfg->{model} temp: " . ($cfg->{temperature} // '0.7'), 2), "\n";
my $term = Term::ReadLine->new('bantam');
$Term::ReadLine::termcap_nowarn = 1; # silence termcap warning on stub Term::ReadLine
$term->ornaments(0) if $term->can('ornaments');
my $prompt_str = ref($term) eq 'Term::ReadLine::Gnu' ? cp("> ", 1, 36) : c("> ", 1, 36);
while (1) {