This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Specify NI_NUMERICSERV for getnameinfo.
authorCraig A. Berry <craigberry@mac.com>
Thu, 25 Sep 2014 12:25:18 +0000 (07:25 -0500)
committerCraig A. Berry <craigberry@mac.com>
Thu, 25 Sep 2014 13:15:34 +0000 (08:15 -0500)
Waiting to be merged upstream: see CPAN RT#98217.

Porting/Maintainers.pl
cpan/Socket/t/getnameinfo.t
t/porting/customized.dat

index 41d24ca..2ec3c5e 100755 (executable)
@@ -985,6 +985,10 @@ use File::Glob qw(:case);
     'Socket' => {
         'DISTRIBUTION' => 'PEVANS/Socket-2.015.tar.gz',
         'FILES'        => q[cpan/Socket],
+        'CUSTOMIZED'   => [
+            # Waiting to be merged upstream: see CPAN RT#98217
+            qw(        t/getnameinfo.t ),
+        ],
     },
 
     'Storable' => {
index 5ee5575..1df639b 100644 (file)
@@ -28,7 +28,7 @@ cmp_ok( $err, "==", 0, '$err == 0 for {family=AF_INET,port=80,sinaddr=127.0.0.1}
 # sure is it's not empty
 ok( length $host, '$host is nonzero length for NS' );
 
-( $err, $host, $service ) = getnameinfo( pack_sockaddr_in( 80, inet_aton( "127.0.0.1" ) ), NI_NUMERICHOST );
+( $err, $host, $service ) = getnameinfo( pack_sockaddr_in( 80, inet_aton( "127.0.0.1" ) ), NI_NUMERICHOST | NI_NUMERICSERV );
 cmp_ok( $err, "==", 0, '$err == 0 for {family=AF_INET,port=80,sinaddr=127.0.0.1}/NI_NUMERICHOST' );
 
 ok( length $service, '$service is nonzero length for NH' );
index eb3774b..5eeae87 100644 (file)
@@ -4,6 +4,7 @@ Digest::SHA cpan/Digest-SHA/hints/hpux.pl 8cf51e816894ee03826eac737bd6843300d6e6
 ExtUtils::MakeMaker cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm f738b4b8d6dfdb2bae5f3e43106370867aa88f01
 ExtUtils::MakeMaker cpan/ExtUtils-MakeMaker/t/pm_to_blib.t 2cd28c8279d7900e28962712763eaa4768117414
 PerlIO::via::QuotedPrint cpan/PerlIO-via-QuotedPrint/t/QuotedPrint.t ca39f0146e89de02c746e199c45dcb3e5edad691
+Socket cpan/Socket/t/getnameinfo.t f25ae4125d64a81538d4d3b73a3a0b9ce3c0404d
 Text::Balanced cpan/Text-Balanced/t/01_compile.t 1598cf491a48fa546260a2ec41142abe84da533d
 Text::Balanced cpan/Text-Balanced/t/02_extbrk.t 6ba1b64a4604e822dc2260b8ffcea6b406339ee8
 Text::Balanced cpan/Text-Balanced/t/03_extcbk.t 3307c980af28963414cab799c427b359ef3b8657