diff options
| author | Marc Espie <espie@cvs.openbsd.org> | 2023-11-06 07:58:48 +0000 |
|---|---|---|
| committer | Marc Espie <espie@cvs.openbsd.org> | 2023-11-06 07:58:48 +0000 |
| commit | 0d33b354bd9f9033083d3363fc5885e8b14ff91c (patch) | |
| tree | 2457ec727913ff1fe6212cbb0fe634fc7f16edd1 /gnu/usr.bin/perl/cpan | |
| parent | 18f566dc53593050df6b11b055d5eb4f56e2d654 (diff) | |
reapply max=64 for now
Diffstat (limited to 'gnu/usr.bin/perl/cpan')
| -rw-r--r-- | gnu/usr.bin/perl/cpan/Term-Cap/Cap.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gnu/usr.bin/perl/cpan/Term-Cap/Cap.pm b/gnu/usr.bin/perl/cpan/Term-Cap/Cap.pm index 4ad9dd21e0a..1e908952a6f 100644 --- a/gnu/usr.bin/perl/cpan/Term-Cap/Cap.pm +++ b/gnu/usr.bin/perl/cpan/Term-Cap/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/); |