r29790 - in /branches/upstream/libpoe-component-client-dns-perl/current: CHANGES DNS.pm META.yml t/06_hosts.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sat Jan 17 22:27:41 UTC 2009
Author: gregoa
Date: Sat Jan 17 22:27:38 2009
New Revision: 29790
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29790
Log:
[svn-upgrade] Integrating new upstream version, libpoe-component-client-dns-perl (1.02)
Modified:
branches/upstream/libpoe-component-client-dns-perl/current/CHANGES
branches/upstream/libpoe-component-client-dns-perl/current/DNS.pm
branches/upstream/libpoe-component-client-dns-perl/current/META.yml
branches/upstream/libpoe-component-client-dns-perl/current/t/06_hosts.t
Modified: branches/upstream/libpoe-component-client-dns-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-client-dns-perl/current/CHANGES?rev=29790&op=diff
==============================================================================
--- branches/upstream/libpoe-component-client-dns-perl/current/CHANGES (original)
+++ branches/upstream/libpoe-component-client-dns-perl/current/CHANGES Sat Jan 17 22:27:38 2009
@@ -1,3 +1,12 @@
+=================================
+2009-01-13T20:18:27.751944Z v1_02
+=================================
+
+ 2009-01-13 20:08:27 (r70) by rcaputo; DNS.pm M; t/06_hosts.t M
+
+ A host-file test was failing because its address segments were wider
+ than single octets.
+
=================================
2008-10-29T16:19:41.680362Z v1_01
=================================
Modified: branches/upstream/libpoe-component-client-dns-perl/current/DNS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-client-dns-perl/current/DNS.pm?rev=29790&op=diff
==============================================================================
--- branches/upstream/libpoe-component-client-dns-perl/current/DNS.pm (original)
+++ branches/upstream/libpoe-component-client-dns-perl/current/DNS.pm Sat Jan 17 22:27:38 2009
@@ -1,4 +1,4 @@
-# $Id: DNS.pm 68 2008-10-29 16:18:54Z rcaputo $
+# $Id: DNS.pm 70 2009-01-13 20:08:27Z rcaputo $
# License and documentation are after __END__.
package POE::Component::Client::DNS;
@@ -6,7 +6,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = '1.01';
+$VERSION = '1.02';
use Carp qw(croak);
Modified: branches/upstream/libpoe-component-client-dns-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-client-dns-perl/current/META.yml?rev=29790&op=diff
==============================================================================
--- branches/upstream/libpoe-component-client-dns-perl/current/META.yml (original)
+++ branches/upstream/libpoe-component-client-dns-perl/current/META.yml Sat Jan 17 22:27:38 2009
@@ -1,16 +1,22 @@
--- #YAML:1.0
-name: POE-Component-Client-DNS
-version: 1.01
-abstract: Non-blocking/concurrent DNS queries using Net::DNS and POE
-license: perl
-author:
+name: POE-Component-Client-DNS
+version: 1.02
+abstract: Non-blocking/concurrent DNS queries using Net::DNS and POE
+author:
- Rocco Caputo <rcaputo at cpan.org>
-generated_by: ExtUtils::MakeMaker version 6.44
-distribution_type: module
-requires:
- Net::DNS: 0.59
- POE: 0.31
- Test::More: 0
+license: perl
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ Net::DNS: 0.59
+ POE: 0.31
+ Test::More: 0
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.48
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: branches/upstream/libpoe-component-client-dns-perl/current/t/06_hosts.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-client-dns-perl/current/t/06_hosts.t?rev=29790&op=diff
==============================================================================
--- branches/upstream/libpoe-component-client-dns-perl/current/t/06_hosts.t (original)
+++ branches/upstream/libpoe-component-client-dns-perl/current/t/06_hosts.t Sat Jan 17 22:27:38 2009
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: 06_hosts.t 67 2008-10-15 03:18:31Z rcaputo $
+# $Id: 06_hosts.t 70 2009-01-13 20:08:27Z rcaputo $
# vim: filetype=perl
# Test the hosts file stuff.
@@ -60,7 +60,7 @@
# 2. Test with a hosts file that contains a host match.
unlink HOSTS_FILE; # Changes inode!
open(HF, ">" . HOSTS_FILE) or die "couldn't write hosts file: $!";
- print HF "123.456.789.012 poe.perl.org\n";
+ print HF "123.45.67.89 poe.perl.org\n";
close HF;
$resolver->resolve(
@@ -74,7 +74,7 @@
my $response = $_[ARG0];
my $address = a_data($response);
ok(
- $address eq "123.456.789.012",
+ $address eq "123.45.67.89",
"lookup when hosts file matches ($address)"
);
More information about the Pkg-perl-cvs-commits
mailing list