diff --git a/perl-5.20.0.dif b/perl-5.20.0.dif index 15fc52a..6208c18 100644 --- a/perl-5.20.0.dif +++ b/perl-5.20.0.dif @@ -565,3 +565,71 @@ Encode cpan/Encode/Byte/Makefile.PL 0986e25f981a3bf182a13a0060d28d4efedd87e6 Encode cpan/Encode/CN/Makefile.PL 5507a49d822d0c1d14e967f4595e29e9c873540b Encode cpan/Encode/EBCDIC/Makefile.PL 574289638393eb6b1109eb9a6874bfe8c5d2ddea +--- ./cpan/IO-Socket-IP/t/15io-socket.t.orig 2014-06-02 18:04:14.281137864 +0000 ++++ ./cpan/IO-Socket-IP/t/15io-socket.t 2014-06-02 18:05:00.617893645 +0000 +@@ -15,6 +15,7 @@ use IO::Socket::IP -register; + Type => SOCK_STREAM, + LocalHost => "127.0.0.1", + LocalPort => 0, ++ GetAddrInfoFlags => 0, + ); + + isa_ok( $sock, "IO::Socket::IP", 'IO::Socket->new( Domain => AF_INET )' ); +@@ -23,6 +24,7 @@ use IO::Socket::IP -register; + Domain => AF_INET, + Type => SOCK_STREAM, + LocalHost => "::1", ++ GetAddrInfoFlags => 0, + ); + + ok( !defined $sock, 'Domain => AF_INET, LocalHost => "::1" fails' ); +@@ -40,6 +42,7 @@ SKIP: { + Type => SOCK_STREAM, + LocalHost => "::1", + LocalPort => 0, ++ GetAddrInfoFlags => 0, + ); + + isa_ok( $sock, "IO::Socket::IP", 'IO::Socket->new( Domain => AF_INET6 )' ) or +@@ -49,6 +52,7 @@ SKIP: { + Domain => $AF_INET6, + Type => SOCK_STREAM, + LocalHost => "127.0.0.1", ++ GetAddrInfoFlags => 0, + ); + + ok( !defined $sock, 'Domain => AF_INET6, LocalHost => "127.0.0.1" fails' ); +--- ./cpan/IO-Socket-IP/t/16v6only.t.orig 2014-06-02 18:04:20.555104796 +0000 ++++ ./cpan/IO-Socket-IP/t/16v6only.t 2014-06-02 18:06:14.417504741 +0000 +@@ -25,6 +25,7 @@ my $ECONNREFUSED_STR = "$!"; + LocalPort => 0, + Type => SOCK_STREAM, + V6Only => 1, ++ GetAddrInfoFlags => 0, + ) or die "Cannot listen on PF_INET6 - $@"; + + is( $listensock->getsockopt( IPPROTO_IPV6, IPV6_V6ONLY ), 1, 'IPV6_V6ONLY is 1 on $listensock' ); +@@ -34,6 +35,7 @@ my $ECONNREFUSED_STR = "$!"; + PeerHost => "127.0.0.1", + PeerPort => $listensock->sockport, + Type => SOCK_STREAM, ++ GetAddrInfoFlags => 0, + ); + my $err = "$@"; + +@@ -52,6 +54,7 @@ SKIP: { + LocalPort => 0, + Type => SOCK_STREAM, + V6Only => 0, ++ GetAddrInfoFlags => 0, + ) or die "Cannot listen on PF_INET6 - $@"; + + is( $listensock->getsockopt( IPPROTO_IPV6, IPV6_V6ONLY ), 0, 'IPV6_V6ONLY is 0 on $listensock' ); +@@ -61,6 +64,7 @@ SKIP: { + PeerHost => "127.0.0.1", + PeerPort => $listensock->sockport, + Type => SOCK_STREAM, ++ GetAddrInfoFlags => 0, + ); + my $err = "$@"; +