From 08705871dd80b9c673fd5a90531b8f394f931cfc Mon Sep 17 00:00:00 2001
From: Luxferre <lux@ferre>
Date: Sun, 9 Aug 2026 07:11:36 +0000
Subject: [PATCH] perl fixes

---
 bantam.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/bantam.pl b/bantam.pl
index fc3422d..736b1d6 100755
--- a/bantam.pl
+++ b/bantam.pl
@@ -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) {