diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-09 20:34:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-09 20:34:36 +0000 |
| commit | bf25f2b50fbae0ff3232f944043a1f9b1e545fb5 (patch) | |
| tree | 226283cb3e48cd21f37fb407d84618f41f85a7c0 /lib/Term/Cap.pm | |
| parent | 9539f6108f2e901fde18a066bd1d54414bbb7af6 (diff) | |
| download | perl-bf25f2b50fbae0ff3232f944043a1f9b1e545fb5.tar.gz | |
VMS tweakage from Charles Lane.
. command.com doubles an output line when prompting for extensions
. Term::Cap has no business trying to run obscure Un*x utilities on VMS
. perl5db doesn't clean up after itself
p4raw-id: //depot/perl@12385
Diffstat (limited to 'lib/Term/Cap.pm')
| -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; |