Change 13335 by jhi@alpha on 2001/11/28 03:33:10
Subject: [PATCH perl@13323] Termcap.pm with no termios
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Tue, 27 Nov 2001 22:28:50 -0600
Message-Id: <a05101003b82a151fda85@[192.168.56.184]>
Affected files ...
.... //depot/perl/lib/Pod/Text/Termcap.pm#9 edit
Differences ...
==== //depot/perl/lib/Pod/Text/Termcap.pm#9 (text) ====
Index: perl/lib/Pod/Text/Termcap.pm
--- perl/lib/Pod/Text/Termcap.pm.~1~ Tue Nov 27 20:45:06 2001
+++ perl/lib/Pod/Text/Termcap.pm Tue Nov 27 20:45:06 2001
@@ -18,6 +18,7 @@
require 5.004;
+use Config;
use Pod::Text ();
use POSIX ();
use Term::Cap;
@@ -46,9 +47,12 @@
$ENV{TERMPATH} = "$ENV{HOME}/.termcap:/etc/termcap"
. ":/usr/share/misc/termcap:/usr/share/lib/termcap";
- my $termios = POSIX::Termios->new;
- $termios->getattr;
- my $ospeed = $termios->getospeed;
+ my $ospeed = '9600';
+ if (defined $Config{'i_termios'}) {
+ my $termios = POSIX::Termios->new;
+ $termios->getattr;
+ $ospeed = $termios->getospeed;
+ }
my $term;
eval { $term = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed } };
$$self{BOLD} = $$term{_md} || "\e[1m";
End of Patch.
