diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2024-02-15 21:14:42 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2024-02-15 21:14:42 +0000 |
commit | 2ef219d80efde1bb5ab11cbdd8bdd059556b1f89 (patch) | |
tree | 95a8cb845703f263101ea7a0842bb75d93109bef /Master/tlpkg/tlperl/lib/Term | |
parent | 40aaa4ec3407e1ab404f4d1b0547205ac561269a (diff) |
Perl 5.38.2
git-svn-id: svn://tug.org/texlive/trunk@69898 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Term')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Term/Cap.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Master/tlpkg/tlperl/lib/Term/Cap.pm b/Master/tlpkg/tlperl/lib/Term/Cap.pm index 12d8299a3a4..54ee1784849 100644 --- a/Master/tlpkg/tlperl/lib/Term/Cap.pm +++ b/Master/tlpkg/tlperl/lib/Term/Cap.pm @@ -19,7 +19,7 @@ use strict; use vars qw($VERSION $VMS_TERMCAP); use vars qw($termpat $state $first $entry); -$VERSION = '1.17'; +$VERSION = '1.18'; # TODO: # support Berkeley DB termcaps @@ -33,7 +33,7 @@ Term::Cap - Perl termcap interface =head1 SYNOPSIS require Term::Cap; - $terminal = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed }; + $terminal = Term::Cap->Tgetent({ TERM => undef, OSPEED => $ospeed }); $terminal->Trequire(qw/ce ku kd/); $terminal->Tgoto('cm', $col, $row, $FH); $terminal->Tputs('dl', $count, $FH); @@ -91,7 +91,7 @@ sub termcap_path { # Add the users $TERMPATH - push( @termcap_path, split( /(:|\s+)/, $ENV{TERMPATH} ) ); + push( @termcap_path, split( /:|\s+/, $ENV{TERMPATH} ) ); } else { @@ -702,7 +702,7 @@ sub Trequire # Get terminal output speed require POSIX; - my $termios = new POSIX::Termios; + my $termios = POSIX::Termios->new; $termios->getattr; my $ospeed = $termios->getospeed; @@ -712,7 +712,7 @@ sub Trequire # ($ispeed,$ospeed) = unpack('cc',$sgtty); # allocate and initialize a terminal structure - $terminal = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed }; + my $terminal = Term::Cap->Tgetent({ TERM => undef, OSPEED => $ospeed }); # require certain capabilities to be available $terminal->Trequire(qw/ce ku kd/); |