diff options
Diffstat (limited to 'lib/Term')
| -rw-r--r-- | lib/Term/Cap.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/Term/Cap.pm b/lib/Term/Cap.pm index 550f7fae29..3c545d6fb9 100644 --- a/lib/Term/Cap.pm +++ b/lib/Term/Cap.pm @@ -173,7 +173,11 @@ sub Tgetent { ## public -- static method { # last resort--fake up a termcap from terminfo local $ENV{TERM} = $term; - $entry = `infocmp -C 2>/dev/null`; + if ($^O ne 'VMS') { + $entry = `infocmp -C 2>/dev/null`; + } else { + $entry = undef; + } } croak "Can't find a valid termcap file" unless @termcap_path || $entry; |