testing/perl
SHA256
3
0
Fork 0
forked from pool/perl
Code Pull Requests Activity

add workaround for glibc...

Browse Source 
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl?expand=0&rev=116
This commit is contained in:
Michael Schröder 2014-06-02 18:07:17 +00:00 committed by Git OBS Bridge
parent 31afbc6247
commit 259a55a372
1 changed files with 68 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
perl-5.20.0.dif
View File

@ -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 = "$@";