Hello community,
here is the log from the commit of package perl-IO-Socket-IP for
openSUSE:Factory checked in at 2014-03-09 18:42:04
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-IO-Socket-IP (Old)
and /work/SRC/openSUSE:Factory/.perl-IO-Socket-IP.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-IO-Socket-IP"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-IO-Socket-IP/perl-IO-Socket-IP.changes
2014-02-19 07:23:11.000000000 +0100
+++ /work/SRC/openSUSE:Factory/.perl-IO-Socket-IP.new/perl-IO-Socket-IP.changes
2014-03-09 18:42:05.000000000 +0100
@@ -1,0 +2,9 @@
+Thu Mar 6 15:04:28 UTC 2014 - opens...@dstoecker.de
+
+- update to 0.29
+ [BUGFIXES]
+ * Workaround for OSes that disobey AI_ADDRCONFIG and yield AIs on
+ families the kernel will not support anyway (e.g. HPUX)
+ * Workaround for OSes that lack getprotobyname() (e.g. Android)
+
+-------------------------------------------------------------------
Old:
----
IO-Socket-IP-0.28.tar.gz
New:
----
IO-Socket-IP-0.29.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-IO-Socket-IP.spec ++++++
--- /var/tmp/diff_new_pack.iCAedd/_old 2014-03-09 18:42:05.000000000 +0100
+++ /var/tmp/diff_new_pack.iCAedd/_new 2014-03-09 18:42:05.000000000 +0100
@@ -19,7 +19,7 @@
%bcond_with test
Name: perl-IO-Socket-IP
-Version: 0.28
+Version: 0.29
Release: 0
%define cpan_name IO-Socket-IP
Summary: Family-neutral IP socket supporting both IPv4 and IPv6
++++++ IO-Socket-IP-0.28.tar.gz -> IO-Socket-IP-0.29.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-IP-0.28/Changes
new/IO-Socket-IP-0.29/Changes
--- old/IO-Socket-IP-0.28/Changes 2014-02-10 17:19:47.000000000 +0100
+++ new/IO-Socket-IP-0.29/Changes 2014-02-24 17:08:26.000000000 +0100
@@ -1,5 +1,11 @@
Revision history for IO-Socket-IP
+0.29 2014/02/24 16:06:29
+ [BUGFIXES]
+ * Workaround for OSes that disobey AI_ADDRCONFIG and yield AIs on
+ families the kernel will not support anyway (e.g. HPUX)
+ * Workaround for OSes that lack getprotobyname() (e.g. Android)
+
0.28 2014/02/10 16:17:59
[CHANGES]
* Renamed internal _configure method to _io_socket_ip__configure to
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-IP-0.28/META.json
new/IO-Socket-IP-0.29/META.json
--- old/IO-Socket-IP-0.28/META.json 2014-02-10 17:19:47.000000000 +0100
+++ new/IO-Socket-IP-0.29/META.json 2014-02-24 17:08:26.000000000 +0100
@@ -4,7 +4,7 @@
"Paul Evans <leon...@leonerd.org.uk>"
],
"dynamic_config" : 1,
- "generated_by" : "Module::Build version 0.4203",
+ "generated_by" : "Module::Build version 0.4204",
"license" : [
"perl_5"
],
@@ -29,7 +29,7 @@
"provides" : {
"IO::Socket::IP" : {
"file" : "lib/IO/Socket/IP.pm",
- "version" : "0.28"
+ "version" : "0.29"
}
},
"release_status" : "stable",
@@ -38,5 +38,5 @@
"http://dev.perl.org/licenses/";
]
},
- "version" : "0.28"
+ "version" : "0.29"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-IP-0.28/META.yml
new/IO-Socket-IP-0.29/META.yml
--- old/IO-Socket-IP-0.28/META.yml 2014-02-10 17:19:47.000000000 +0100
+++ new/IO-Socket-IP-0.29/META.yml 2014-02-24 17:08:26.000000000 +0100
@@ -3,21 +3,21 @@
author:
- 'Paul Evans <leon...@leonerd.org.uk>'
build_requires:
- Test::More: 0.88
+ Test::More: '0.88'
dynamic_config: 1
-generated_by: 'Module::Build version 0.4203, CPAN::Meta::Converter version
2.133380'
+generated_by: 'Module::Build version 0.4204, CPAN::Meta::Converter version
2.133380'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: '1.4'
name: IO-Socket-IP
provides:
IO::Socket::IP:
file: lib/IO/Socket/IP.pm
- version: 0.28
+ version: '0.29'
requires:
- IO::Socket: 0
- Socket: 1.97
+ IO::Socket: '0'
+ Socket: '1.97'
resources:
license: http://dev.perl.org/licenses/
-version: 0.28
+version: '0.29'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-IP-0.28/Makefile.PL
new/IO-Socket-IP-0.29/Makefile.PL
--- old/IO-Socket-IP-0.28/Makefile.PL 2014-02-10 17:19:47.000000000 +0100
+++ new/IO-Socket-IP-0.29/Makefile.PL 2014-02-24 17:08:26.000000000 +0100
@@ -1,4 +1,4 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.4203
+# Note: this file was auto-generated by Module::Build::Compat version 0.4204
use ExtUtils::MakeMaker;
WriteMakefile
(
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-IP-0.28/lib/IO/Socket/IP.pm
new/IO-Socket-IP-0.29/lib/IO/Socket/IP.pm
--- old/IO-Socket-IP-0.28/lib/IO/Socket/IP.pm 2014-02-10 17:19:47.000000000
+0100
+++ new/IO-Socket-IP-0.29/lib/IO/Socket/IP.pm 2014-02-24 17:08:26.000000000
+0100
@@ -7,7 +7,7 @@
# $VERSION needs to be set before use base 'IO::Socket'
# - https://rt.cpan.org/Ticket/Display.html?id=92107
BEGIN {
- $VERSION = '0.28';
+ $VERSION = '0.29';
}
use strict;
@@ -35,6 +35,9 @@
use constant HAVE_MSWIN32 => ( $^O eq "MSWin32" );
+# At least one OS (Android) is known not to have getprotobyname()
+use constant HAVE_GETPROTOBYNAME => defined eval { getprotobyname( "tcp" ) };
+
my $IPv6_re = do {
# translation of RFC 3986 3.2.2 ABNF to re
my $IPv4address = do {
@@ -394,7 +397,9 @@
if( defined( my $proto = $arg->{Proto} ) ) {
unless( $proto =~ m/^\d+$/ ) {
- my $protonum = getprotobyname( $proto );
+ my $protonum = HAVE_GETPROTOBYNAME
+ ? getprotobyname( $proto )
+ : eval { Socket->${\"IPPROTO_\U$proto"}() };
defined $protonum or croak "Unrecognised protocol $proto";
$proto = $protonum;
}
@@ -518,24 +523,27 @@
if( !@infos ) {
# If there was a Family hint then create a plain unbound, unconnected
socket
+ if( defined $hints{family} ) {
+ @infos = ( {
+ family => $hints{family},
+ socktype => $hints{socktype},
+ protocol => $hints{protocol},
+ } );
+ }
# If there wasn't, use getaddrinfo()'s AI_ADDRCONFIG side-effect to
guess a
# suitable family first.
- if( !defined $hints{family} ) {
- my ( $err, $addrinfo ) = getaddrinfo( "", "0", \%hints );
+ else {
+ ( my $err, @infos ) = getaddrinfo( "", "0", \%hints );
if( $err ) {
$@ = "$err";
$! = EINVAL;
return;
}
- $hints{family} = $addrinfo->{family};
+ # We'll take all the @infos anyway, because some OSes (HPUX) are
known to
+ # ignore the AI_ADDRCONFIG hint and return AF_INET6 even if they don't
+ # support them
}
-
- @infos = ( {
- family => $hints{family},
- socktype => $hints{socktype},
- protocol => $hints{protocol},
- } );
}
# In the nonblocking case, caller will be calling ->setup multiple times.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/IO-Socket-IP-0.28/t/19no-addrs.t
new/IO-Socket-IP-0.29/t/19no-addrs.t
--- old/IO-Socket-IP-0.28/t/19no-addrs.t 2014-02-10 17:19:47.000000000
+0100
+++ new/IO-Socket-IP-0.29/t/19no-addrs.t 2014-02-24 17:08:26.000000000
+0100
@@ -13,6 +13,9 @@
{
my $sock = IO::Socket::IP->new( Family => AF_INET );
+ my $save_exc = $@;
+ ok( defined $sock, 'Constructor yields handle for Family => AF_INET' ) or
+ diag( "Exception was $save_exc" );
ok( defined $sock->fileno, '$sock->fileno for Family => AF_INET' );
is( $sock->sockdomain, AF_INET, '$sock->sockdomain for Family => AF_INET' );
@@ -21,12 +24,15 @@
SKIP: {
my $AF_INET6 = eval { require Socket and Socket::AF_INET6() } or
- skip "No AF_INET6", 3;
+ skip "No AF_INET6", 4;
eval { IO::Socket::IP->new( LocalHost => "::1" ) } or
- skip "Unable to bind to ::1", 3;
+ skip "Unable to bind to ::1", 4;
my $sock = IO::Socket::IP->new( Family => $AF_INET6 );
+ my $save_exc = $@;
+ ok( defined $sock, 'Constructor yields handle for Family => AF_INET6' ) or
+ diag( "Exception was $save_exc" );
ok( defined $sock->fileno, '$sock->fileno for Family => AF_INET6' );
is( $sock->sockdomain, $AF_INET6, '$sock->sockdomain for Family =>
AF_INET6' );
@@ -37,6 +43,9 @@
# what family
{
my $sock = IO::Socket::IP->new( Type => SOCK_STREAM );
+ my $save_exc = $@;
+ ok( defined $sock, 'Constructor yields handle for Type => SOCK_STREAM' ) or
+ diag( "Exception was $save_exc" );
ok( defined $sock->fileno, '$sock->fileno for Type => SOCK_STREAM' );
is( $sock->socktype, SOCK_STREAM, '$sock->socktype for Type => SOCK_STREAM'
);
--
To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org
For additional commands, e-mail: opensuse-commit+h...@opensuse.org
