#!/usr/bin/perl
#
-# $Id$
-#
# has_term: Check for a valid TERM value.
# Usage: has_term [<term>]
# Exits: 0 if the TERM setting is valid.
# Quit.
close STDERR;
+# Don't be fooled by screen.
+delete $ENV{TERMCAP};
Tgetent Term::Cap { TERM => $ARGV[0], OSPEED => 9600 } and exit 0;
exit 100;