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