Change 13337 by jhi@alpha on 2001/11/28 13:15:41
Subject: Re: [PATCH Perl@13013] Term::Cap and VMS
From: Jonathan Stowe <[EMAIL PROTECTED]>
Date: Wed, 28 Nov 2001 10:39:54 +0000 (GMT)
Message-ID: <[EMAIL PROTECTED]>
(replace #13327)
Affected files ...
.... //depot/perl/lib/Term/Cap.pm#16 edit
Differences ...
==== //depot/perl/lib/Term/Cap.pm#16 (text) ====
Index: perl/lib/Term/Cap.pm
--- perl/lib/Term/Cap.pm.~1~ Wed Nov 28 06:30:05 2001
+++ perl/lib/Term/Cap.pm Wed Nov 28 06:30:05 2001
@@ -4,7 +4,7 @@
use vars qw($VERSION);
-$VERSION = '1.02';
+$VERSION = '1.03';
# Version undef: Thu Dec 14 20:02:42 CST 1995 by [EMAIL PROTECTED]
# Version 1.00: Thu Nov 30 23:34:29 EST 2000 by [EMAIL PROTECTED]
@@ -15,6 +15,8 @@
# Altered layout of the POD
# Added Test::More to PREREQ_PM in Makefile.PL
# Fixed no argument Tgetent()
+# Version 1.03: Wed Nov 28 10:09:38 GMT 2001
+# VMS Support from Charles Lane <[EMAIL PROTECTED]>
# TODO:
# support Berkeley DB termcaps
@@ -184,30 +186,19 @@
{
# last resort--fake up a termcap from terminfo
local $ENV{TERM} = $term;
- if ($^O eq 'VMS') { # we use REAL dec terminals, not stinkin' emulators!
- $entry = 'vt220|vt200|DEC VT220 in vt100 emulation mode:'
- .'am:mi:xn:xo:'
- .'co#80:li#24:'
- .'RA=\E[?7l:SA=\E[?7h:'
- .'ac=kkllmmjjnnwwqquuttvvxx:ae=\E(B:al=\E[L:as=\E(0:'
- .'bl=^G:cd=\E[J:ce=\E[K:cl=\E[H\E[2J:cm=\E[%i%d;%dH:'
- .'cr=^M:cs=\E[%i%d;%dr:dc=\E[P:dl=\E[M:do=\E[B:'
- .'ei=\E[4l:ho=\E[H:im=\E[4h:'
- .'is=\E[1;24r\E[24;1H:'
- .'nd=\E[C:'
- .'kd=\E[B::kl=\E[D:kr=\E[C:ku=\E[A:le=^H:'
- .'mb=\E[5m:md=\E[1m:me=\E[m:mr=\E[7m:'
- .'kb=\0177:'
- .'r2=\E>\E[24;1H\E[?3l\E[?4l\E[?5l\E[?7h\E[?8h\E=:rc=\E8:'
- .'sc=\E7:se=\E[27m:sf=\ED:so=\E[7m:sr=\EM:ta=^I:'
- .'ue=\E[24m:up=\E[A:us=\E[4m:ve=\E[?25h:vi=\E[?25l:';
- } else {
- eval
- {
- $entry = `infocmp -C 2>/dev/null`;
- }
+
+ if ( $^O eq 'VMS' ) {
+ chomp(my @entry = <DATA>);
+ $entry = join '', @entry;
+ }
+ else {
+ eval
+ {
+ $entry = `infocmp -C 2>/dev/null`;
+ }
+ }
+
}
- }
croak "Can't find a valid termcap file" unless @termcap_path || $entry;
@@ -562,9 +553,6 @@
croak "Terminal does not support: (@undefined)" if @undefined;
}
-1;
-__END__
-
=back
=head1 EXAMPLES
@@ -610,3 +598,25 @@
termcap(5)
=cut
+
+# Below is a default entry for systems where there are terminals but no
+# termcap
+1;
+__END__
+vt220|vt200|DEC VT220 in vt100 emulation mode:
+am:mi:xn:xo:
+co#80:li#24:
+RA=\E[?7l:SA=\E[?7h:
+ac=kkllmmjjnnwwqquuttvvxx:ae=\E(B:al=\E[L:as=\E(0:
+bl=^G:cd=\E[J:ce=\E[K:cl=\E[H\E[2J:cm=\E[%i%d;%dH:
+cr=^M:cs=\E[%i%d;%dr:dc=\E[P:dl=\E[M:do=\E[B:
+ei=\E[4l:ho=\E[H:im=\E[4h:
+is=\E[1;24r\E[24;1H:
+nd=\E[C:
+kd=\E[B::kl=\E[D:kr=\E[C:ku=\E[A:le=^H:
+mb=\E[5m:md=\E[1m:me=\E[m:mr=\E[7m:
+kb=\0177:
+r2=\E>\E[24;1H\E[?3l\E[?4l\E[?5l\E[?7h\E[?8h\E=:rc=\E8:
+sc=\E7:se=\E[27m:sf=\ED:so=\E[7m:sr=\EM:ta=^I:
+ue=\E[24m:up=\E[A:us=\E[4m:ve=\E[?25h:vi=\E[?25l:
+
End of Patch.
