Hello community,
here is the log from the commit of package perl-IO-Socket-Timeout for
openSUSE:Factory checked in at 2015-04-15 16:25:55
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-IO-Socket-Timeout (Old)
and /work/SRC/openSUSE:Factory/.perl-IO-Socket-Timeout.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-IO-Socket-Timeout"
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-IO-Socket-Timeout/perl-IO-Socket-Timeout.changes
2014-03-21 12:15:16.000000000 +0100
+++
/work/SRC/openSUSE:Factory/.perl-IO-Socket-Timeout.new/perl-IO-Socket-Timeout.changes
2015-04-15 16:25:56.000000000 +0200
@@ -1,0 +2,14 @@
+Tue Apr 14 20:17:21 UTC 2015 - co...@suse.com
+
+- updated to 0.27
+ see /usr/share/doc/packages/perl-IO-Socket-Timeout/Changes
+
+ 0.27 2014-07-30 11:37:59 Europe/Amsterdam
+
+ 0.26 2014-07-30 11:36:41 Europe/Amsterdam
+ . Fix tests ( gcs )
+
+ 0.25 2014-07-04 14:01:19 Europe/Amsterdam
+ . FreeBSD compatibility ( Eric Cholet, GH#1 )
+
+-------------------------------------------------------------------
Old:
----
IO-Socket-Timeout-0.24.tar.gz
New:
----
IO-Socket-Timeout-0.27.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-IO-Socket-Timeout.spec ++++++
--- /var/tmp/diff_new_pack.x8eCdf/_old 2015-04-15 16:25:56.000000000 +0200
+++ /var/tmp/diff_new_pack.x8eCdf/_new 2015-04-15 16:25:56.000000000 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-IO-Socket-Timeout
#
-# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -17,7 +17,7 @@
Name: perl-IO-Socket-Timeout
-Version: 0.24
+Version: 0.27
Release: 0
%define cpan_name IO-Socket-Timeout
Summary: IO::Socket with read/write timeout
@@ -29,7 +29,7 @@
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
-BuildRequires: perl(Module::Build::Tiny) >= 0.030
+BuildRequires: perl(Module::Build::Tiny) >= 0.036
BuildRequires: perl(PerlIO::via::Timeout) >= 0.28
BuildRequires: perl(Test::TCP)
Requires: perl(PerlIO::via::Timeout) >= 0.28
++++++ IO-Socket-Timeout-0.24.tar.gz -> IO-Socket-Timeout-0.27.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-Timeout-0.24/Build.PL
new/IO-Socket-Timeout-0.27/Build.PL
--- old/IO-Socket-Timeout-0.24/Build.PL 2014-03-11 15:16:27.000000000 +0100
+++ new/IO-Socket-Timeout-0.27/Build.PL 2014-07-30 11:38:01.000000000 +0200
@@ -1,3 +1,3 @@
use 5.006;
-use Module::Build::Tiny 0.030;
+use Module::Build::Tiny 0.036;
Build_PL();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-Timeout-0.24/Changes
new/IO-Socket-Timeout-0.27/Changes
--- old/IO-Socket-Timeout-0.24/Changes 2014-03-11 15:16:27.000000000 +0100
+++ new/IO-Socket-Timeout-0.27/Changes 2014-07-30 11:38:01.000000000 +0200
@@ -1,3 +1,11 @@
+0.27 2014-07-30 11:37:59 Europe/Amsterdam
+
+0.26 2014-07-30 11:36:41 Europe/Amsterdam
+ . Fix tests ( gcs )
+
+0.25 2014-07-04 14:01:19 Europe/Amsterdam
+ . FreeBSD compatibility ( Eric Cholet, GH#1 )
+
0.24 2014-03-11 15:16:25 Europe/Amsterdam
. minor doc fix
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-Timeout-0.24/MANIFEST
new/IO-Socket-Timeout-0.27/MANIFEST
--- old/IO-Socket-Timeout-0.24/MANIFEST 2014-03-11 15:16:27.000000000 +0100
+++ new/IO-Socket-Timeout-0.27/MANIFEST 2014-07-30 11:38:01.000000000 +0200
@@ -13,6 +13,7 @@
t/preload.t
t/release-distmeta.t
t/release-pod-coverage.t
+t/release-synopsis.t
t/timeout.t
t/timeout_setsockopt.t
t/tlib/TestTimeout.pm
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-Timeout-0.24/META.yml
new/IO-Socket-Timeout-0.27/META.yml
--- old/IO-Socket-Timeout-0.24/META.yml 2014-03-11 15:16:27.000000000 +0100
+++ new/IO-Socket-Timeout-0.27/META.yml 2014-07-30 11:38:01.000000000 +0200
@@ -10,7 +10,7 @@
Test::TCP: 0
configure_requires:
ExtUtils::MakeMaker: 6.30
- Module::Build::Tiny: 0.030
+ Module::Build::Tiny: 0.036
dynamic_config: 0
generated_by: 'Dist::Zilla version 5.005, CPAN::Meta::Converter version
2.132830'
license: perl
@@ -21,15 +21,16 @@
provides:
IO::Socket::Timeout:
file: lib/IO/Socket/Timeout.pm
- version: 0.24
+ version: 0.27
IO::Socket::Timeout::Role::PerlIO:
file: lib/IO/Socket/Timeout.pm
- version: 0.24
+ version: 0.27
IO::Socket::Timeout::Role::SetSockOpt:
file: lib/IO/Socket/Timeout.pm
- version: 0.24
+ version: 0.27
requires:
PerlIO::via::Timeout: 0.28
resources:
+ bugtracker: https://github.com/dams/io-socket-timeout/issues
repository: git://github.com/dams/io-socket-timeout.git
-version: 0.24
+version: 0.27
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-Timeout-0.24/Makefile.PL
new/IO-Socket-Timeout-0.27/Makefile.PL
--- old/IO-Socket-Timeout-0.24/Makefile.PL 2014-03-11 15:16:27.000000000
+0100
+++ new/IO-Socket-Timeout-0.27/Makefile.PL 2014-07-30 11:38:01.000000000
+0200
@@ -8,8 +8,8 @@
BEGIN {
my %configure_requires = (
+ 'Module::Build::Tiny' => '0.036',
'ExtUtils::MakeMaker' => '6.30',
- 'Module::Build::Tiny' => '0.030',
);
my @missing = grep {
@@ -73,7 +73,7 @@
"BUILD_REQUIRES" => {},
"CONFIGURE_REQUIRES" => {
"ExtUtils::MakeMaker" => "6.30",
- "Module::Build::Tiny" => "0.030"
+ "Module::Build::Tiny" => "0.036"
},
"DISTNAME" => "IO-Socket-Timeout",
"EXE_FILES" => [],
@@ -89,7 +89,7 @@
"Test::More" => 0,
"Test::TCP" => 0
},
- "VERSION" => "0.24",
+ "VERSION" => "0.27",
"test" => {
"TESTS" => "t/*.t"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-Timeout-0.24/README
new/IO-Socket-Timeout-0.27/README
--- old/IO-Socket-Timeout-0.24/README 2014-03-11 15:16:27.000000000 +0100
+++ new/IO-Socket-Timeout-0.27/README 2014-07-30 11:38:01.000000000 +0200
@@ -1,7 +1,7 @@
This archive contains the distribution IO-Socket-Timeout,
-version 0.24:
+version 0.27:
IO::Socket with read/write timeout
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-Timeout-0.24/dist.ini
new/IO-Socket-Timeout-0.27/dist.ini
--- old/IO-Socket-Timeout-0.24/dist.ini 2014-03-11 15:16:27.000000000 +0100
+++ new/IO-Socket-Timeout-0.27/dist.ini 2014-07-30 11:38:01.000000000 +0200
@@ -21,6 +21,7 @@
; -- tests
[Test::Compile]
+[Test::Synopsis]
[MetaTests]
[PodCoverageTests]
[ExtraTests]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-Timeout-0.24/lib/IO/Socket/Timeout.pm
new/IO-Socket-Timeout-0.27/lib/IO/Socket/Timeout.pm
--- old/IO-Socket-Timeout-0.24/lib/IO/Socket/Timeout.pm 2014-03-11
15:16:27.000000000 +0100
+++ new/IO-Socket-Timeout-0.27/lib/IO/Socket/Timeout.pm 2014-07-30
11:38:01.000000000 +0200
@@ -8,7 +8,7 @@
#
package IO::Socket::Timeout;
{
- $IO::Socket::Timeout::VERSION = '0.24';
+ $IO::Socket::Timeout::VERSION = '0.27';
}
use strict;
@@ -38,7 +38,7 @@
my $osname = $Config{osname};
if ( ! $ENV{PERL_IO_SOCKET_TIMEOUT_FORCE_SELECT}
- && ( $osname eq 'darwin' || $osname eq 'linux' ) ) {
+ && ( $osname eq 'darwin' || $osname eq 'linux' || $osname eq
'freebsd' ) ) {
_compose_roles($socket, 'IO::Socket::Timeout::Role::SetSockOpt');
} else {
require PerlIO::via::Timeout;
@@ -71,7 +71,7 @@
BEGIN {
my $osname = $Config{osname};
if ( $ENV{PERL_IO_SOCKET_TIMEOUT_FORCE_SELECT} ||
- $osname ne 'darwin' && $osname ne 'linux'
+ $osname ne 'darwin' && $osname ne 'linux' && $osname ne 'freebsd'
) {
# this variable avoids infinite recursion, because
# PerlIO::via::Timeout->READ calls sysread.
@@ -92,7 +92,7 @@
BEGIN {
my $osname = $Config{osname};
if ( $ENV{PERL_IO_SOCKET_TIMEOUT_FORCE_SELECT} ||
- $osname ne 'darwin' && $osname ne 'linux'
+ $osname ne 'darwin' && $osname ne 'linux' && $osname ne 'freebsd'
) {
# this variable avoids infinite recursion, because
# PerlIO::via::Timeout->WRITE calls syswrite.
@@ -111,7 +111,7 @@
package IO::Socket::Timeout::Role::SetSockOpt;
{
- $IO::Socket::Timeout::Role::SetSockOpt::VERSION = '0.24';
+ $IO::Socket::Timeout::Role::SetSockOpt::VERSION = '0.27';
}
use Carp;
use Socket;
@@ -171,7 +171,7 @@
package IO::Socket::Timeout::Role::PerlIO;
{
- $IO::Socket::Timeout::Role::PerlIO::VERSION = '0.24';
+ $IO::Socket::Timeout::Role::PerlIO::VERSION = '0.27';
}
use PerlIO::via::Timeout;
@@ -195,7 +195,7 @@
=head1 VERSION
-version 0.24
+version 0.27
=head1 SYNOPSIS
@@ -211,7 +211,7 @@
# When using the socket:
use Errno qw(ETIMEDOUT EWOULDBLOCK);
- print $socket $request;
+ print $socket "some request";
my $response = <$socket>;
if (! $response && ( 0+$! == ETIMEDOUT || 0+$! == EWOULDBLOCK )) {
die "timeout reading on the socket";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-Timeout-0.24/t/io_sock.t
new/IO-Socket-Timeout-0.27/t/io_sock.t
--- old/IO-Socket-Timeout-0.24/t/io_sock.t 2014-03-11 15:16:27.000000000
+0100
+++ new/IO-Socket-Timeout-0.27/t/io_sock.t 2014-07-30 11:38:01.000000000
+0200
@@ -43,10 +43,10 @@
# some systems seem to need as much as 10,
# so be generous with the timeout
Timeout => 15,
- TimeoutRead => $TimeoutRead,
- TimeoutWrite => $TimeoutWrite,
) or die "$!";
IO::Socket::Timeout->enable_timeouts_on($listen);
+$listen->read_timeout($TimeoutRead);
+$listen->write_timeout($TimeoutWrite);
print "ok 1\n";
@@ -81,17 +81,15 @@
$sock = IO::Socket::INET->new(PeerPort => $port,
Proto => 'tcp',
PeerAddr => 'localhost',
- TimeoutRead => $TimeoutRead,
- TimeoutWrite => $TimeoutWrite,
)
|| IO::Socket::INET->new(PeerPort => $port,
Proto => 'tcp',
PeerAddr => '127.0.0.1',
- TimeoutRead => $TimeoutRead,
- TimeoutWrite => $TimeoutWrite,
)
or die "$! (maybe your system does not have a localhost at all,
'localhost' or 127.0.0.1)";
IO::Socket::Timeout->enable_timeouts_on($sock);
+ $sock->read_timeout($TimeoutRead);
+ $sock->write_timeout($TimeoutWrite);
$sock->autoflush(1);
@@ -108,8 +106,10 @@
# Test various other ways to create INET sockets that should
# also work.
-$listen = IO::Socket::INET->new(Listen => '', Timeout => 15, TimeoutRead =>
$TimeoutRead, TimeoutWrite => $TimeoutWrite, ) or die "$!";
+$listen = IO::Socket::INET->new(Listen => '', Timeout => 15, ) or die "$!";
IO::Socket::Timeout->enable_timeouts_on($listen);
+$listen->read_timeout($TimeoutRead);
+$listen->write_timeout($TimeoutWrite);
$port = $listen->sockport;
if($pid = fork()) {
@@ -189,8 +189,10 @@
LocalAddr => 'localhost')
|| IO::Socket->new(Domain => AF_INET,
Proto => 'udp',
- LocalAddr => '127.0.0.1', TimeoutRead =>
$TimeoutRead, TimeoutWrite => $TimeoutWrite);
+ LocalAddr => '127.0.0.1');
IO::Socket::Timeout->enable_timeouts_on($server);
+$server->read_timeout($TimeoutRead);
+$server->write_timeout($TimeoutWrite);
$port = $server->sockport;
if ($pid = fork()) {
@@ -200,10 +202,12 @@
} elsif (defined($pid)) {
#child
$sock = IO::Socket::INET->new(Proto => 'udp',
- PeerAddr => "localhost:$port", TimeoutRead
=> $TimeoutRead, TimeoutWrite => $TimeoutWrite)
+ PeerAddr => "localhost:$port")
|| IO::Socket::INET->new(Proto => 'udp',
- PeerAddr => "127.0.0.1:$port", TimeoutRead
=> $TimeoutRead, TimeoutWrite => $TimeoutWrite);
+ PeerAddr => "127.0.0.1:$port");
IO::Socket::Timeout->enable_timeouts_on($sock);
+ $sock->read_timeout($TimeoutRead);
+ $sock->write_timeout($TimeoutWrite);
$sock->send("ok 12\n");
sleep(1);
$sock->send("ok 12\n"); # send another one to be sure
@@ -241,9 +245,11 @@
### TEST 16
### Start the server
#
-my $listen = IO::Socket::INET->new( Listen => 2, Proto => 'tcp', Timeout =>
15, TimeoutRead => $TimeoutRead, TimeoutWrite => $TimeoutWrite) ||
+my $listen = IO::Socket::INET->new( Listen => 2, Proto => 'tcp', Timeout =>
15) ||
print "not ";
IO::Socket::Timeout->enable_timeouts_on($listen);
+$listen->read_timeout($TimeoutRead);
+$listen->write_timeout($TimeoutWrite);
print "ok 16\n";
die if( !defined( $listen));
my $serverport = $listen->sockport;
@@ -402,9 +408,11 @@
# test Blocking option in constructor
-$sock = IO::Socket::INET->new(Blocking => 0, TimeoutRead => $TimeoutRead,
TimeoutWrite => $TimeoutWrite)
+$sock = IO::Socket::INET->new(Blocking => 0)
or print "not ";
IO::Socket::Timeout->enable_timeouts_on($sock);
+$sock->read_timeout($TimeoutRead);
+$sock->write_timeout($TimeoutWrite);
print "ok 25\n";
if ( $^O eq 'qnx' ) {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-Timeout-0.24/t/io_unix.t
new/IO-Socket-Timeout-0.27/t/io_unix.t
--- old/IO-Socket-Timeout-0.24/t/io_unix.t 2014-03-11 15:16:27.000000000
+0100
+++ new/IO-Socket-Timeout-0.27/t/io_unix.t 2014-07-30 11:38:01.000000000
+0200
@@ -61,8 +61,13 @@
use IO::Socket;
use IO::Socket::Timeout;
-$listen = IO::Socket::UNIX->new(Local => $PATH, Listen => 0, TimeoutRead => 5,
TimeoutWrite => 5);
+my $TimeoutRead = 5;
+my $TimeoutWrite = 5;
+
+$listen = IO::Socket::UNIX->new(Local => $PATH, Listen => 0);
IO::Socket::Timeout->enable_timeouts_on($listen);
+$listen->read_timeout($TimeoutRead);
+$listen->write_timeout($TimeoutWrite);
# Sometimes UNIX filesystems are mounted for security reasons
# with "nodev" option which spells out "no" for creating UNIX
@@ -76,10 +81,13 @@
if (defined $TMPDIR && -d $TMPDIR && -w $TMPDIR) {
$PATH = mktemp("$TMPDIR/sXXXXXXXX");
last if $listen = IO::Socket::UNIX->new(Local => $PATH,
- Listen => 0,
TimeoutRead => 5, TimeoutWrite => 5);
+ Listen => 0);
}
}
IO::Socket::Timeout->enable_timeouts_on($listen);
+ $listen->read_timeout($TimeoutRead);
+ $listen->write_timeout($TimeoutWrite);
+
}
defined $listen or die "$PATH: $!";
}
@@ -110,8 +118,10 @@
}
} elsif(defined $pid) {
- $sock = IO::Socket::UNIX->new(Peer => $PATH, TimeoutRead => 5,
TimeoutWrite => 5) or die "$!";
+ $sock = IO::Socket::UNIX->new(Peer => $PATH) or die "$!";
IO::Socket::Timeout->enable_timeouts_on($sock);
+ $sock->read_timeout($TimeoutRead);
+ $sock->write_timeout($TimeoutWrite);
print $sock "ok 3\n";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-Timeout-0.24/t/release-synopsis.t
new/IO-Socket-Timeout-0.27/t/release-synopsis.t
--- old/IO-Socket-Timeout-0.24/t/release-synopsis.t 1970-01-01
01:00:00.000000000 +0100
+++ new/IO-Socket-Timeout-0.27/t/release-synopsis.t 2014-07-30
11:38:01.000000000 +0200
@@ -0,0 +1,24 @@
+#!perl
+#
+# This file is part of IO-Socket-Timeout
+#
+# This software is copyright (c) 2013 by Damien "dams" Krotkine.
+#
+# This is free software; you can redistribute it and/or modify it under
+# the same terms as the Perl 5 programming language system itself.
+#
+
+BEGIN {
+ unless ($ENV{RELEASE_TESTING}) {
+ require Test::More;
+ Test::More::plan(skip_all => 'these tests are for release candidate
testing');
+ }
+}
+
+
+use Test::More;
+
+eval "use Test::Synopsis";
+plan skip_all => "Test::Synopsis required for testing synopses"
+ if $@;
+all_synopsis_ok();
