r73492 - in /trunk/libsocket-getaddrinfo-perl: ./ debian/ lib/Socket/ lib/Socket/GetAddrInfo/

periapt-guest at users.alioth.debian.org periapt-guest at users.alioth.debian.org
Mon Apr 25 10:31:09 UTC 2011


Author: periapt-guest
Date: Mon Apr 25 10:30:58 2011
New Revision: 73492

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=73492
Log:
IGNORE-VERSION: 0.21-1
* New upstream release

Modified:
    trunk/libsocket-getaddrinfo-perl/Build.PL
    trunk/libsocket-getaddrinfo-perl/Changes
    trunk/libsocket-getaddrinfo-perl/META.yml
    trunk/libsocket-getaddrinfo-perl/README
    trunk/libsocket-getaddrinfo-perl/debian/changelog
    trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.pm
    trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.xs
    trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/Core.pm
    trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/Emul.pm
    trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/Socket6api.pm
    trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/XS.pm

Modified: trunk/libsocket-getaddrinfo-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/Build.PL?rev=73492&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/Build.PL (original)
+++ trunk/libsocket-getaddrinfo-perl/Build.PL Mon Apr 25 10:30:58 2011
@@ -4,11 +4,16 @@
 use Module::Build;
 use ExtUtils::CBuilder;
 
-my %requires;
+my %extra_requires;
 my $extra_compiler_flags;
 my $extra_linker_flags;
 
 my $build_xs = 1;
+
+if( $ENV{PERL_SOCKET_GETADDRINFO_NO_BUILD_XS} ) {
+   print "PERL_SOCKET_GETADDRINFO_NO_BUILD_XS specified in environment; disabling XS implementation\n";
+   $build_xs = 0;
+}
 
 # As of Perl 5.13.9, core's Socket now contains getaddrinfo, getnameinfo, and
 # all the associated constants.
@@ -17,7 +22,7 @@
    $build_xs = 0;
 
    # Was added in Socket 1.93
-   $requires{"Socket"} = '1.93';
+   $extra_requires{"Socket"} = '1.93';
 }
 
 if( $build_xs and not ExtUtils::CBuilder->new->have_compiler ) {
@@ -112,7 +117,7 @@
 }
 EOF
 
-   $requires{"XSLoader"} = 0;
+   $extra_requires{"XSLoader"} = 0;
    $extra_compiler_flags = $cc->extra_compiler_flags;
    $extra_linker_flags = $cc->extra_linker_flags;
 }
@@ -120,7 +125,10 @@
 my $build = Module::Build->new(
    module_name => 'Socket::GetAddrInfo',
    dist_version_from => 'lib/Socket/GetAddrInfo.pm',
-   requires => \%requires,
+   requires => {
+      'Exporter' => '5.57',
+      %extra_requires,
+   },
    configure_requires => {
       'ExtUtils::CBuilder' => 0,
       'ExtUtils::CChecker' => '0.06',

Modified: trunk/libsocket-getaddrinfo-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/Changes?rev=73492&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/Changes (original)
+++ trunk/libsocket-getaddrinfo-perl/Changes Mon Apr 25 10:30:58 2011
@@ -1,4 +1,9 @@
 Revision history for Socket-GetAddrInfo
+
+0.21    BUGFIXES:
+         * Exporter 5.57 is required - this has shipped with perl since 5.8.3,
+           but now explicitly declared for 5.6.2
+         * getservbyport() needs a protocol name on 5.6.2
 
 0.20    CHANGES:
          * Added bin/getaddrinfo and bin/getnameinfo script (replaces previous

Modified: trunk/libsocket-getaddrinfo-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/META.yml?rev=73492&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/META.yml (original)
+++ trunk/libsocket-getaddrinfo-perl/META.yml Mon Apr 25 10:30:58 2011
@@ -22,21 +22,22 @@
 provides:
   Socket::GetAddrInfo:
     file: lib/Socket/GetAddrInfo.pm
-    version: 0.20
+    version: 0.21
   Socket::GetAddrInfo::Core:
     file: lib/Socket/GetAddrInfo/Core.pm
-    version: 0.20
+    version: 0.21
   Socket::GetAddrInfo::Emul:
     file: lib/Socket/GetAddrInfo/Emul.pm
-    version: 0.20
+    version: 0.21
   Socket::GetAddrInfo::Socket6api:
     file: lib/Socket/GetAddrInfo/Socket6api.pm
-    version: 0.20
+    version: 0.21
   Socket::GetAddrInfo::XS:
     file: lib/Socket/GetAddrInfo/XS.pm
-    version: 0.20
+    version: 0.21
 requires:
+  Exporter: 5.57
   XSLoader: 0
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.20
+version: 0.21

Modified: trunk/libsocket-getaddrinfo-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/README?rev=73492&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/README (original)
+++ trunk/libsocket-getaddrinfo-perl/README Mon Apr 25 10:30:58 2011
@@ -145,11 +145,18 @@
     value can be compared against any of the "EAI_*" constants to determine
     what the error is.
 
+BUILDING WITHOUT XS CODE
+    In some environments it may be preferred not to build the XS
+    implementation, leaving a choice only of the core or pure-perl emulation
+    implementations.
+
+     $ PERL_SOCKET_GETADDRINFO_NO_BUILD_XS=1 perl Build.PL
+
 BUGS
-    *   At the time of writing, there are no test reports from the "MSWin32"
-        platform either PASS or FAIL. I suspect the code will not currently
-        work as it stands on that platform, but it should be fairly easy to
-        fix, as "Socket6" is known to work there. Patches welcomed. :)
+    *   Appears to FAIL on older Darwin machines (e.g. "osvers=8.11.1"). The
+        failure mode occurs in t/02getnameinfo.t and appears to relate to an
+        endian bug; expecting to receive 80 and instead receiving 20480
+        (which is a 16-bit 80 byte-swapped).
 
 SEE ALSO
     *   <http://tools.ietf.org/html/rfc2553> - Basic Socket Interface

Modified: trunk/libsocket-getaddrinfo-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/debian/changelog?rev=73492&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/debian/changelog (original)
+++ trunk/libsocket-getaddrinfo-perl/debian/changelog Mon Apr 25 10:30:58 2011
@@ -1,3 +1,11 @@
+libsocket-getaddrinfo-perl (0.21-1) UNRELEASED; urgency=low
+
+  IGNORE-VERSION: 0.21-1
+
+  * New upstream release
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk>  Mon, 25 Apr 2011 11:27:56 +0100
+
 libsocket-getaddrinfo-perl (0.20-2) unstable; urgency=low
 
   * Rewrite README.Debian incorporating material from 

Modified: trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.pm?rev=73492&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.pm (original)
+++ trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.pm Mon Apr 25 10:30:58 2011
@@ -10,7 +10,7 @@
 
 use Carp;
 
-our $VERSION = '0.20';
+our $VERSION = '0.21';
 
 require Exporter;
 our @EXPORT;
@@ -245,10 +245,12 @@
 
 =cut
 
-# Keep perl happy; keep Britain tidy
-1;
-
-__END__
+=head1 BUILDING WITHOUT XS CODE
+
+In some environments it may be preferred not to build the XS implementation,
+leaving a choice only of the core or pure-perl emulation implementations.
+
+ $ PERL_SOCKET_GETADDRINFO_NO_BUILD_XS=1 perl Build.PL 
 
 =head1 BUGS
 
@@ -256,10 +258,10 @@
 
 =item *
 
-At the time of writing, there are no test reports from the C<MSWin32> platform
-either PASS or FAIL. I suspect the code will not currently work as it stands
-on that platform, but it should be fairly easy to fix, as C<Socket6> is known
-to work there. Patches welcomed. :)
+Appears to FAIL on older Darwin machines (e.g. C<osvers=8.11.1>). The failure
+mode occurs in F<t/02getnameinfo.t> and appears to relate to an endian bug;
+expecting to receive C<80> and instead receiving C<20480> (which is a 16-bit
+C<80> byte-swapped).
 
 =back
 
@@ -287,3 +289,7 @@
 =head1 AUTHOR
 
 Paul Evans <leonerd at leonerd.org.uk>
+
+=cut
+
+0x55AA;

Modified: trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.xs?rev=73492&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.xs (original)
+++ trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.xs Mon Apr 25 10:30:58 2011
@@ -189,6 +189,7 @@
     }
 
     Zero(&hints_s, sizeof hints_s, char);
+    hints_s.ai_family = PF_UNSPEC;
 
     if(hints && SvOK(hints)) {
       HV *hintshash;

Modified: trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/Core.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/Core.pm?rev=73492&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/Core.pm (original)
+++ trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/Core.pm Mon Apr 25 10:30:58 2011
@@ -8,7 +8,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.20';
+our $VERSION = '0.21';
 
 # Load the actual code into Socket::GetAddrInfo
 package # hide from indexer
@@ -27,6 +27,4 @@
 
 Socket->import( @EXPORT );
 
-# Keep perl happy; keep Britain tidy
-1;
-
+0x55AA;

Modified: trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/Emul.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/Emul.pm?rev=73492&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/Emul.pm (original)
+++ trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/Emul.pm Mon Apr 25 10:30:58 2011
@@ -8,7 +8,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.20';
+our $VERSION = '0.21';
 
 # Load the actual code into Socket::GetAddrInfo
 package # hide from indexer
@@ -270,7 +270,7 @@
       $service = "$port";
    }
    else {
-      my $protname = $flag_dgram ? "udp" : "";
+      my $protname = $flag_dgram ? "udp" : "tcp";
       $service = getservbyport( $port, $protname );
       if( !defined $service ) {
          $service = "$port";
@@ -280,11 +280,10 @@
    return ( _makeerr( 0 ), $node, $service );
 }
 
-# Keep perl happy; keep Britain tidy
-1;
-
-__END__
-
 =head1 AUTHOR
 
 Paul Evans <leonerd at leonerd.org.uk>
+
+=cut
+
+0x55AA;

Modified: trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/Socket6api.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/Socket6api.pm?rev=73492&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/Socket6api.pm (original)
+++ trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/Socket6api.pm Mon Apr 25 10:30:58 2011
@@ -10,7 +10,7 @@
 
 use Carp;
 
-our $VERSION = '0.20';
+our $VERSION = '0.21';
 
 use Exporter 'import';
 our @EXPORT = qw(
@@ -137,11 +137,10 @@
    return ( $host, $service );
 }
 
-# Keep perl happy; keep Britain tidy
-1;
-
-__END__
-
 =head1 AUTHOR
 
 Paul Evans <leonerd at leonerd.org.uk>
+
+=cut
+
+0x55AA;

Modified: trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/XS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/XS.pm?rev=73492&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/XS.pm (original)
+++ trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo/XS.pm Mon Apr 25 10:30:58 2011
@@ -8,7 +8,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '0.20';
+our $VERSION = '0.21';
 
 # Load the actual code into Socket::GetAddrInfo
 package # hide from indexer
@@ -24,5 +24,4 @@
 require XSLoader;
 XSLoader::load( __PACKAGE__, $Socket::GetAddrInfo::XS::VERSION );
 
-# Keep perl happy; keep Britain tidy
-1;
+0x55AA;




More information about the Pkg-perl-cvs-commits mailing list