summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Term/Cap.pm
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2024-02-15 21:14:42 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2024-02-15 21:14:42 +0000
commit2ef219d80efde1bb5ab11cbdd8bdd059556b1f89 (patch)
tree95a8cb845703f263101ea7a0842bb75d93109bef /Master/tlpkg/tlperl/lib/Term/Cap.pm
parent40aaa4ec3407e1ab404f4d1b0547205ac561269a (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/Cap.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Term/Cap.pm10
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/);