git://git.iain.cx/iain
/
profile.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Tidy up.
[profile.git]
/
has_term
1
#!/usr/bin/perl
2
#
3
# $Id$
4
#
5
# has_term: Check for a valid TERM value.
6
# Usage: has_term [<term>]
7
# Exits: 0 if the TERM setting is valid.
8
# 1 otherwise.
9
# Example: has_term dtterm
10
#
11
12
use Term::Cap;
13
14
# Quit.
15
close STDERR;
16
17
Tgetent Term::Cap { TERM => $ARGV[0], OSPEED => 9600 } and exit 0;
18
exit 100;