r63215 - in /trunk/libsocket-getaddrinfo-perl: Changes META.yml debian/changelog debian/control debian/copyright examples/gai.pl lib/Socket/GetAddrInfo.pm lib/Socket/GetAddrInfo.xs
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Oct 3 15:19:44 UTC 2010
Author: jawnsy-guest
Date: Sun Oct 3 15:19:30 2010
New Revision: 63215
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63215
Log:
* New upstream release
* Standards-Version 3.9.1 (no changes)
* Use "Debian systems" in d/copyright
Modified:
trunk/libsocket-getaddrinfo-perl/Changes
trunk/libsocket-getaddrinfo-perl/META.yml
trunk/libsocket-getaddrinfo-perl/debian/changelog
trunk/libsocket-getaddrinfo-perl/debian/control
trunk/libsocket-getaddrinfo-perl/debian/copyright
trunk/libsocket-getaddrinfo-perl/examples/gai.pl
trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.pm
trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.xs
Modified: trunk/libsocket-getaddrinfo-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/Changes?rev=63215&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/Changes (original)
+++ trunk/libsocket-getaddrinfo-perl/Changes Sun Oct 3 15:19:30 2010
@@ -1,4 +1,11 @@
Revision history for Socket-GetAddrInfo
+
+0.18 BUGFIXES:
+ * Fix plain number passing for getaddrinfo()'s service on perl
+ versions <5.10.0
+
+0.17 BUGFIXES:
+ * Fix 'protocol' hint to getaddrinfo()
0.16 CHANGES:
* Accept undef as absent host/service name, as well as ""
Modified: trunk/libsocket-getaddrinfo-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/META.yml?rev=63215&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/META.yml (original)
+++ trunk/libsocket-getaddrinfo-perl/META.yml Sun Oct 3 15:19:30 2010
@@ -23,9 +23,9 @@
provides:
Socket::GetAddrInfo:
file: lib/Socket/GetAddrInfo.pm
- version: 0.16
+ version: 0.18
requires:
XSLoader: 0
resources:
license: http://dev.perl.org/licenses/
-version: 0.16
+version: 0.18
Modified: trunk/libsocket-getaddrinfo-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/debian/changelog?rev=63215&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/debian/changelog (original)
+++ trunk/libsocket-getaddrinfo-perl/debian/changelog Sun Oct 3 15:19:30 2010
@@ -1,3 +1,11 @@
+libsocket-getaddrinfo-perl (0.18-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * Standards-Version 3.9.1 (no changes)
+ * Use "Debian systems" in d/copyright
+
+ -- Jonathan Yu <jawnsy at cpan.org> Sun, 03 Oct 2010 11:18:02 -0400
+
libsocket-getaddrinfo-perl (0.16-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libsocket-getaddrinfo-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/debian/control?rev=63215&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/debian/control (original)
+++ trunk/libsocket-getaddrinfo-perl/debian/control Sun Oct 3 15:19:30 2010
@@ -6,7 +6,7 @@
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Jonathan Yu <jawnsy at cpan.org>,
Nathan Handler <nhandler at ubuntu.com>, Ansgar Burchardt <ansgar at 43-1.org>
-Standards-Version: 3.9.0
+Standards-Version: 3.9.1
Homepage: http://search.cpan.org/dist/Socket-GetAddrInfo/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libsocket-getaddrinfo-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/
Modified: trunk/libsocket-getaddrinfo-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/debian/copyright?rev=63215&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/debian/copyright (original)
+++ trunk/libsocket-getaddrinfo-perl/debian/copyright Sun Oct 3 15:19:30 2010
@@ -14,8 +14,8 @@
This program is free software; you can redistribute it and/or modify
it under the terms of the Artistic License, which comes with Perl.
.
- On Debian GNU/Linux systems, the complete text of the Artistic License
- can be found in `/usr/share/common-licenses/Artistic'
+ On Debian systems, the complete text of the Artistic License can be
+ found in `/usr/share/common-licenses/Artistic'
License: GPL-1+
This program is free software; you can redistribute it and/or modify
@@ -23,6 +23,6 @@
the Free Software Foundation; either version 1, or (at your option)
any later version.
.
- On Debian GNU/Linux systems, the complete text of the GNU General
- Public License can be found in `/usr/share/common-licenses/GPL'
+ On Debian systems, the complete text of the GNU General Public
+ License can be found in `/usr/share/common-licenses/GPL'
Modified: trunk/libsocket-getaddrinfo-perl/examples/gai.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsocket-getaddrinfo-perl/examples/gai.pl?rev=63215&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/examples/gai.pl (original)
+++ trunk/libsocket-getaddrinfo-perl/examples/gai.pl Sun Oct 3 15:19:30 2010
@@ -23,6 +23,16 @@
'stream' => sub { $hints{socktype} = SOCK_STREAM },
'dgram' => sub { $hints{socktype} = SOCK_DGRAM },
+ 'proto=s' => sub {
+ my $proto = $_[1];
+ unless( $proto =~ m/^\d+$/ ) {
+ my $protonum = getprotobyname( $proto );
+ defined $protonum or die "No such protocol - $proto\n";
+ $proto = $protonum;
+ }
+ $hints{protocol} = $proto;
+ },
+
'passive' => sub { $hints{flags} ||= AI_PASSIVE },
) or exit 1;
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=63215&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.pm (original)
+++ trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.pm Sun Oct 3 15:19:30 2010
@@ -15,7 +15,7 @@
my %errstr;
BEGIN {
- our $VERSION = "0.16";
+ our $VERSION = "0.18";
our @EXPORT = qw(
getaddrinfo
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=63215&op=diff
==============================================================================
--- trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.xs (original)
+++ trunk/libsocket-getaddrinfo-perl/lib/Socket/GetAddrInfo.xs Sun Oct 3 15:19:30 2010
@@ -119,6 +119,7 @@
PREINIT:
char *hostname = NULL;
char *servicename = NULL;
+ STRLEN len;
struct addrinfo hints_s = { 0 };
struct addrinfo *res;
struct addrinfo *res_iter;
@@ -129,7 +130,8 @@
if(SvOK(host) && SvCUR(host))
hostname = SvPV_nolen(host);
- if(SvOK(service) && SvCUR(service))
+ /* This might be numeric so we may have to stringify it */
+ if(SvOK(service) && (SvCUR(service) || SvPV(service, len) && len))
servicename = SvPV_nolen(service);
if(hints && SvOK(hints)) {
@@ -147,7 +149,7 @@
hints_s.ai_family = SvIV(*valp);
if((valp = hv_fetch(hintshash, "socktype", 8, 0)) != NULL)
hints_s.ai_socktype = SvIV(*valp);
- if((valp = hv_fetch(hintshash, "protocol", 5, 0)) != NULL)
+ if((valp = hv_fetch(hintshash, "protocol", 8, 0)) != NULL)
hints_s.ai_protocol = SvIV(*valp);
}
More information about the Pkg-perl-cvs-commits
mailing list