X-Git-Url: http://git.iain.cx/?p=profile.git;a=blobdiff_plain;f=has_term;h=52005c1bb31bc3431cb5d552f10a3010cb6decc2;hp=8150269eee53396b6e9fc4dcd32decca77b8fcab;hb=31189bc241721bf1e1b38dd31875fa6093b64e74;hpb=104b025d33b8cf5f9d42bda3ac3d158eb7a07701

diff --git a/has_term b/has_term
index 8150269..52005c1 100755
--- a/has_term
+++ b/has_term
@@ -1,7 +1,5 @@
 #!/usr/bin/perl
 #
-# $Id$
-#
 # has_term: Check for a valid TERM value.
 # Usage: has_term [<term>]
 # Exits: 0 if the TERM setting is valid.
@@ -14,5 +12,7 @@ use Term::Cap;
 # 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;