Disable termcap warning when TERM is unset

Upstream-URL: rafl/term-readline#5
atoomic · Mar 30, 2022 · 63d3bca · 63d3bca
1 parent f60dc0a
commit 63d3bca
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/dist/Term-ReadLine/lib/Term/ReadLine.pm b/dist/Term-ReadLine/lib/Term/ReadLine.pm
@@ -374,7 +374,7 @@ our $rl_term_set = ',,,';
 our $terminal;
 sub LoadTermCap {
   return if defined $terminal;
-
+  return unless $ENV{'TERM'};
   require Term::Cap;
   $terminal = Tgetent Term::Cap ({OSPEED => 9600}); # Avoid warning.
 }
@@ -388,7 +388,7 @@ sub ornaments {
   my @ts = split /,/, $rl_term_set, 4;
   eval { LoadTermCap };
   unless (defined $terminal) {
-    warn("Cannot find termcap: $@\n") unless $Term::ReadLine::termcap_nowarn;
+    warn("Cannot find termcap: $@\n") if $ENV{'TERM'} && ! $Term::ReadLine::termcap_nowarn;
     $rl_term_set = ',,,';
     return;
   }