Control: retitle -1 unblock: libio-socket-ssl-perl/1.76-2 Hi
I asked on IRC on #debian-release if it is okay to upload this to unstable to give it testing. Neil McGovern answered me to upload it now to unstable and ping here again when accepted. Would it possible to unblock it? Only change is the patch applied by upstream. Debdiff for the package is attached. There is no Debian Bug in the BTS, but upstream's RT is at [1]. [1]: https://rt.cpan.org/Public/Bug/Display.html?id=79916 Regards, Salvatore
Base version: libio-socket-ssl-perl_1.76-1 from testing Target version: libio-socket-ssl-perl_1.76-2 from unstable No hints in place. changelog | 7 + patches/0001-Fix-update_peer-subroutine-to-work-with-IPv6.patch | 48 ++++++++++ patches/series | 1 3 files changed, 56 insertions(+) diff -Nru libio-socket-ssl-perl-1.76/debian/changelog libio-socket-ssl-perl-1.76/debian/changelog --- libio-socket-ssl-perl-1.76/debian/changelog 2012-06-22 13:40:40.000000000 +0000 +++ libio-socket-ssl-perl-1.76/debian/changelog 2012-10-27 16:32:23.000000000 +0000 @@ -1,3 +1,10 @@ +libio-socket-ssl-perl (1.76-2) unstable; urgency=low + + * Add 0001-Fix-update_peer-subroutine-to-work-with-IPv6.patch patch. + Fix _update_peer subroutine to work with IPv6. + + -- Salvatore Bonaccorso <car...@debian.org> Fri, 05 Oct 2012 17:41:19 +0200 + libio-socket-ssl-perl (1.76-1) unstable; urgency=low * Imported Upstream version 1.75 and 1.76 diff -Nru libio-socket-ssl-perl-1.76/debian/patches/0001-Fix-update_peer-subroutine-to-work-with-IPv6.patch libio-socket-ssl-perl-1.76/debian/patches/0001-Fix-update_peer-subroutine-to-work-with-IPv6.patch --- libio-socket-ssl-perl-1.76/debian/patches/0001-Fix-update_peer-subroutine-to-work-with-IPv6.patch 1970-01-01 00:00:00.000000000 +0000 +++ libio-socket-ssl-perl-1.76/debian/patches/0001-Fix-update_peer-subroutine-to-work-with-IPv6.patch 2012-10-27 16:32:23.000000000 +0000 @@ -0,0 +1,48 @@ +Description: Fix _update_peer subroutine to work with IPv6 +Origin: vendor +Bug: https://rt.cpan.org/Public/Bug/Display.html?id=79916 +Forwarded: not-needed +Author: Salvatore Bonaccorso <car...@debian.org> +Last-Update: 2012-10-05 + +--- + SSL.pm | 18 +++++++++++++----- + 1 file changed, 13 insertions(+), 5 deletions(-) + +--- a/SSL.pm ++++ b/SSL.pm +@@ -69,11 +69,11 @@ + my $ip6 = eval { + require Socket; + Socket->VERSION(1.95); +- Socket->import( 'inet_pton' ); ++ Socket->import( qw/inet_pton inet_ntop/ ); + 1; + } || eval { + require Socket6; +- Socket6->import( 'inet_pton' ); ++ Socket6->import( qw/inet_pton inet_ntop/ ); + 1; + }; + +@@ -525,9 +525,17 @@ + my $self = shift; + my $arg_hash = ${*$self}{'_SSL_arguments'}; + eval { +- my ($port,$addr) = sockaddr_in( getpeername( $self )); +- $arg_hash->{PeerAddr} = inet_ntoa( $addr ); +- $arg_hash->{PeerPort} = $port; ++ my $sockaddr = getpeername( $self ); ++ my $af = sockaddr_family($sockaddr); ++ if( $af == AF_INET6 ) { ++ my ($port, $addr, $scope, $flow ) = unpack_sockaddr_in6( $sockaddr ); ++ $arg_hash->{PeerAddr} = inet_ntop( $af, $addr ); ++ $arg_hash->{PeerPort} = $port; ++ } else { ++ my ($port,$addr) = sockaddr_in( $sockaddr); ++ $arg_hash->{PeerAddr} = inet_ntoa( $addr ); ++ $arg_hash->{PeerPort} = $port; ++ } + } + } + diff -Nru libio-socket-ssl-perl-1.76/debian/patches/series libio-socket-ssl-perl-1.76/debian/patches/series --- libio-socket-ssl-perl-1.76/debian/patches/series 1970-01-01 00:00:00.000000000 +0000 +++ libio-socket-ssl-perl-1.76/debian/patches/series 2012-10-27 16:32:23.000000000 +0000 @@ -0,0 +1 @@ +0001-Fix-update_peer-subroutine-to-work-with-IPv6.patch
signature.asc
Description: Digital signature
