开源软件构建与测试

_service:tar_scm:perl-Term-Cap.spec Changed

@@ -1,7 +1,7 @@
 %define mod_name Term-Cap
 Name:           perl-%{mod_name}
-Version:        1.17
-Release:        511
+Version:        1.18
+Release:        1
 Summary:        Perl termcap interface
 License:        GPL+ or Artistic
 URL:            https://metacpan.org/release/%{mod_name}
@@ -13,11 +13,12 @@
 BuildRequires:  make
 BuildRequires:  perl-interpreter
 BuildRequires:  perl-generators
-BuildRequires:  perl(ExtUtils::MakeMaker)
+BuildRequires:  perl(ExtUtils::MakeMaker) >= 6.76
 # ncurses for infocmp tool
 Requires:       ncurses
 Requires:       perl(:MODULE_COMPAT_%(perl -V:version | cut -d"'" -f 2))
 Requires:       perl(Carp)
+Conflicts:      perl < 4:5.22.0-347
 
 %description
 These are low-level functions to extract and use capabilities from a
@@ -49,6 +50,9 @@
 %{_mandir}/man3/*
 
 %changelog
+* Wed Oct 25 2023 xujing <xujing125@huawei.com> - 1.18-1
+- update version to 1.18
+
 * Mon Oct 24 2022 yangmingtai <yangmingtai@huawei.com> - 1.17-511
 - define mod_name to opitomize the specfile

_service Changed

_service:tar_scm:Term-Cap-1.17.tar.gz/Cap.pm -> _service:tar_scm:Term-Cap-1.18.tar.gz/Cap.pm Changed

@@ -19,7 +19,7 @@
 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 @@
 =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 @@
     {
 
         # Add the users $TERMPATH
-        push( @termcap_path, split( /(:|\s+)/, $ENV{TERMPATH} ) );
+        push( @termcap_path, split( /:|\s+/, $ENV{TERMPATH} ) );
     }
     else
     {
@@ -702,7 +702,7 @@
 
     # 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 @@
     #     ($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/);

_service:tar_scm:Term-Cap-1.17.tar.gz/Changes -> _service:tar_scm:Term-Cap-1.18.tar.gz/Changes Changed

_service:tar_scm:Term-Cap-1.17.tar.gz/MANIFEST.SKIP -> _service:tar_scm:Term-Cap-1.18.tar.gz/MANIFEST.SKIP Changed

_service:tar_scm:Term-Cap-1.17.tar.gz/META.json -> _service:tar_scm:Term-Cap-1.18.tar.gz/META.json Changed

_service:tar_scm:Term-Cap-1.17.tar.gz/META.yml -> _service:tar_scm:Term-Cap-1.18.tar.gz/META.yml Changed

_service:tar_scm:Term-Cap-1.17.tar.gz/test.pl -> _service:tar_scm:Term-Cap-1.18.tar.gz/test.pl Changed

Changes of Revision 3