Hello community,

here is the log from the commit of package perl-Test-TCP for openSUSE:Factory 
checked in at 2019-10-18 14:35:56
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Test-TCP (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Test-TCP.new.2352 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Test-TCP"

Fri Oct 18 14:35:56 2019 rev:17 rq:738585 version:2.22

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Test-TCP/perl-Test-TCP.changes      
2019-10-08 19:57:19.012307717 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Test-TCP.new.2352/perl-Test-TCP.changes    
2019-10-18 14:35:59.159840530 +0200
@@ -1,0 +2,9 @@
+Wed Oct  9 08:24:52 UTC 2019 -  <[email protected]>
+
+- updated to 2.22
+   see /usr/share/doc/packages/perl-Test-TCP/Changes
+
+  2.22 2019-10-08T08:15:34Z
+      - Portability fixes for Win32 and non-linux #83, #87
+
+-------------------------------------------------------------------

Old:
----
  Test-TCP-2.21.tar.gz

New:
----
  Test-TCP-2.22.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Test-TCP.spec ++++++
--- /var/tmp/diff_new_pack.r2s37A/_old  2019-10-18 14:35:59.715839082 +0200
+++ /var/tmp/diff_new_pack.r2s37A/_new  2019-10-18 14:35:59.715839082 +0200
@@ -17,14 +17,14 @@
 
 
 Name:           perl-Test-TCP
-Version:        2.21
+Version:        2.22
 Release:        0
 %define cpan_name Test-TCP
 Summary:        Testing TCP program
 License:        Artistic-1.0 OR GPL-1.0-or-later
 Group:          Development/Libraries/Perl
 Url:            https://metacpan.org/release/%{cpan_name}
-Source0:        
https://cpan.metacpan.org/authors/id/K/KA/KAZUHO/%{cpan_name}-%{version}.tar.gz
+Source0:        
https://cpan.metacpan.org/authors/id/M/MI/MIYAGAWA/%{cpan_name}-%{version}.tar.gz
 Source1:        cpanspec.yml
 BuildArch:      noarch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build

++++++ Test-TCP-2.21.tar.gz -> Test-TCP-2.22.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Test-TCP-2.21/Changes new/Test-TCP-2.22/Changes
--- old/Test-TCP-2.21/Changes   2019-10-03 05:15:51.000000000 +0200
+++ new/Test-TCP-2.22/Changes   2019-10-08 10:16:05.000000000 +0200
@@ -1,5 +1,8 @@
 Revision history for Perl module Test::TCP
 
+2.22 2019-10-08T08:15:34Z
+    - Portability fixes for Win32 and non-linux #83, #87
+
 2.21 2019-10-03T03:15:22Z
     - Fix race condition in check_port(UDP) #78
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Test-TCP-2.21/META.json new/Test-TCP-2.22/META.json
--- old/Test-TCP-2.21/META.json 2019-10-03 05:15:51.000000000 +0200
+++ new/Test-TCP-2.22/META.json 2019-10-08 10:16:05.000000000 +0200
@@ -4,7 +4,7 @@
       "Tokuhiro Matsuno <[email protected]>"
    ],
    "dynamic_config" : 0,
-   "generated_by" : "Minilla/v3.1.6",
+   "generated_by" : "Minilla/v3.1.4",
    "license" : [
       "perl_5"
    ],
@@ -37,7 +37,7 @@
             "Perl::Critic" : "1.105",
             "Test::CPAN::Meta" : "0",
             "Test::MinimumVersion::Fast" : "0.04",
-            "Test::PAUSE::Permissions" : "0.07",
+            "Test::PAUSE::Permissions" : "0.04",
             "Test::Perl::Critic" : "1.02",
             "Test::Pod" : "1.41",
             "Test::Spellunker" : "v0.2.7"
@@ -67,7 +67,7 @@
       },
       "Test::TCP" : {
          "file" : "lib/Test/TCP.pm",
-         "version" : "2.21"
+         "version" : "2.22"
       },
       "Test::TCP::CheckPort" : {
          "file" : "lib/Test/TCP/CheckPort.pm"
@@ -84,7 +84,7 @@
          "web" : "https://github.com/tokuhirom/Test-TCP";
       }
    },
-   "version" : "2.21",
+   "version" : "2.22",
    "x_contributors" : [
       "Alex Vandiver <[email protected]>",
       "Andrii Melnykov <[email protected]>",
@@ -100,12 +100,14 @@
       "Kenichi Ishigaki <[email protected]>",
       "Kent Fredric <[email protected]>",
       "Masahiro Nagano <[email protected]>",
+      "Mohammad S Anwar <[email protected]>",
       "Neil Bowers <[email protected]>",
       "Pavel Shaydo <[email protected]>",
       "Pete Houston <[email protected]>",
       "Petr Písař <[email protected]>",
       "Syohei YOSHIDA <[email protected]>",
       "Tatsuhiko Miyagawa <[email protected]>",
+      "Tatsuhiko Miyagawa <[email protected]>",
       "Thomas Klausner <[email protected]>",
       "Yasuhiro Matsumoto <[email protected]>",
       "gfx <[email protected]>",
@@ -116,6 +118,5 @@
       "yappo <yappo@d0d07461-0603-4401-acd4-de1884942a52>",
       "奥 一穂 <[email protected]>"
    ],
-   "x_serialization_backend" : "JSON::PP version 2.97001",
    "x_static_install" : 1
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Test-TCP-2.21/META.yml new/Test-TCP-2.22/META.yml
--- old/Test-TCP-2.21/META.yml  2019-10-03 05:15:51.000000000 +0200
+++ new/Test-TCP-2.22/META.yml  2019-10-08 10:16:05.000000000 +0200
@@ -9,7 +9,7 @@
 configure_requires:
   ExtUtils::MakeMaker: '6.64'
 dynamic_config: 0
-generated_by: 'Minilla/v3.1.6, CPAN::Meta::Converter version 2.150010'
+generated_by: 'Minilla/v3.1.4, CPAN::Meta::Converter version 2.143240'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -30,7 +30,7 @@
     file: lib/Net/EmptyPort.pm
   Test::TCP:
     file: lib/Test/TCP.pm
-    version: '2.21'
+    version: '2.22'
   Test::TCP::CheckPort:
     file: lib/Test/TCP/CheckPort.pm
 requires:
@@ -44,7 +44,7 @@
   bugtracker: https://github.com/tokuhirom/Test-TCP/issues
   homepage: https://github.com/tokuhirom/Test-TCP
   repository: git://github.com/tokuhirom/Test-TCP.git
-version: '2.21'
+version: '2.22'
 x_contributors:
   - 'Alex Vandiver <[email protected]>'
   - 'Andrii Melnykov <[email protected]>'
@@ -60,12 +60,14 @@
   - 'Kenichi Ishigaki <[email protected]>'
   - 'Kent Fredric <[email protected]>'
   - 'Masahiro Nagano <[email protected]>'
+  - 'Mohammad S Anwar <[email protected]>'
   - 'Neil Bowers <[email protected]>'
   - 'Pavel Shaydo <[email protected]>'
   - 'Pete Houston <[email protected]>'
   - 'Petr Písař <[email protected]>'
   - 'Syohei YOSHIDA <[email protected]>'
   - 'Tatsuhiko Miyagawa <[email protected]>'
+  - 'Tatsuhiko Miyagawa <[email protected]>'
   - 'Thomas Klausner <[email protected]>'
   - 'Yasuhiro Matsumoto <[email protected]>'
   - 'gfx <[email protected]>'
@@ -75,5 +77,4 @@
   - 'richard.leach <[email protected]>'
   - 'yappo <yappo@d0d07461-0603-4401-acd4-de1884942a52>'
   - '奥 一穂 <[email protected]>'
-x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
 x_static_install: 1
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Test-TCP-2.21/Makefile.PL 
new/Test-TCP-2.22/Makefile.PL
--- old/Test-TCP-2.21/Makefile.PL       2019-10-03 05:15:51.000000000 +0200
+++ new/Test-TCP-2.22/Makefile.PL       2019-10-08 10:16:05.000000000 +0200
@@ -11,7 +11,7 @@
 my %WriteMakefileArgs = (
     NAME     => 'Test::TCP',
     DISTNAME => 'Test-TCP',
-    VERSION  => '2.21',
+    VERSION  => '2.22',
     EXE_FILES => [glob('script/*'), glob('bin/*')],
     CONFIGURE_REQUIRES => {
   "ExtUtils::MakeMaker" => "6.64"
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Test-TCP-2.21/README.md new/Test-TCP-2.22/README.md
--- old/Test-TCP-2.21/README.md 2019-10-03 05:15:51.000000000 +0200
+++ new/Test-TCP-2.22/README.md 2019-10-08 10:16:05.000000000 +0200
@@ -233,7 +233,7 @@
 
 - How should I write IPv6 tests?
 
-    You should use the \`Net::EmptyPort::can\_bind\` function to check if the 
program can bind to the loopback address of IPv6, as well as the \`host\` 
parameter of the \`test\_tcp\` function to specify the same address as the bind 
address.
+    You should use the ["can\_bind" in 
Net::EmptyPort](https://metacpan.org/pod/Net::EmptyPort#can_bind) function to 
check if the program can bind to the loopback address of IPv6, as well as the 
`host` parameter of the ["test\_tcp"](#test_tcp) function to specify the same 
address as the bind address.
 
         use Net::EmptyPort qw(can_bind);
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Test-TCP-2.21/lib/Net/EmptyPort.pm 
new/Test-TCP-2.22/lib/Net/EmptyPort.pm
--- old/Test-TCP-2.21/lib/Net/EmptyPort.pm      2019-10-03 05:15:51.000000000 
+0200
+++ new/Test-TCP-2.22/lib/Net/EmptyPort.pm      2019-10-08 10:16:05.000000000 
+0200
@@ -101,9 +101,8 @@
         PeerAddr => $host,
         PeerPort => $port,
         V6Only   => 1,
+        Blocking => 0,
     ) or die "failed to create bound UDP socket:$!";
-    fcntl($sock, F_SETFL, O_NONBLOCK)
-      or die "failed to set socket to nonblocking mode:$!";
 
     $sock->send("0", 0)
         or die "failed to send a UDP packet:$!";
@@ -114,7 +113,11 @@
     select $rfds, undef, $efds, 0.1;
 
     # after 0.1 second of silence, we assume that the server is up
-    my $up = defined($sock->recv(my $data, 1000)) || $! != ECONNREFUSED;
+    my $up = defined($sock->recv(my $data, 1000)) || (
+        ($^O eq 'MSWin32')
+            ? ($^E != Errno::WSAECONNRESET() && $^E != 
Errno::WSAECONNREFUSED())
+            : ($! != ECONNREFUSED)
+    );
     close $sock;
     $up;
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Test-TCP-2.21/lib/Test/TCP.pm 
new/Test-TCP-2.22/lib/Test/TCP.pm
--- old/Test-TCP-2.21/lib/Test/TCP.pm   2019-10-03 05:15:51.000000000 +0200
+++ new/Test-TCP-2.22/lib/Test/TCP.pm   2019-10-08 10:16:05.000000000 +0200
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use 5.00800;
-our $VERSION = '2.21';
+our $VERSION = '2.22';
 use base qw/Exporter/;
 use Test::SharedFork 0.12;
 use Test::More ();
@@ -408,7 +408,7 @@
 
 =item How should I write IPv6 tests?
 
-You should use the `Net::EmptyPort::can_bind` function to check if the program 
can bind to the loopback address of IPv6, as well as the `host` parameter of 
the `test_tcp` function to specify the same address as the bind address.
+You should use the L<Net::EmptyPort/can_bind> function to check if the program 
can bind to the loopback address of IPv6, as well as the C<host> parameter of 
the L</test_tcp> function to specify the same address as the bind address.
 
     use Net::EmptyPort qw(can_bind);
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Test-TCP-2.21/t/11_net_empty_port.t 
new/Test-TCP-2.22/t/11_net_empty_port.t
--- old/Test-TCP-2.21/t/11_net_empty_port.t     2019-10-03 05:15:51.000000000 
+0200
+++ new/Test-TCP-2.22/t/11_net_empty_port.t     2019-10-08 10:16:05.000000000 
+0200
@@ -88,6 +88,7 @@
     ok !check_port($port, 'udp'), "port is down";
     my $sock = IO::Socket::IP->new(
         Proto     => 'udp',
+        LocalAddr => '127.0.0.1',
         LocalPort => $port,
         V6Only    => 1,
     ) or die "failed to bind to a UDP socket:$!";


Reply via email to