r43162 - in /trunk/libpoe-component-client-dns-perl: ./ debian/ debian/patches/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Fri Aug 28 16:35:29 UTC 2009
Author: jawnsy-guest
Date: Fri Aug 28 16:35:23 2009
New Revision: 43162
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=43162
Log:
* New upstream release
+ Now uses Test::NoWarnings
+ Fix for a strange case where IPv6 localhost was returned as ::1,
rather than the long form
* Standards-Version 3.8.3 (no changes)
* Remove patches which were applied upstream (RT#48335)
Removed:
trunk/libpoe-component-client-dns-perl/debian/patches/fix-link-length.patch
trunk/libpoe-component-client-dns-perl/debian/patches/skip-undefined-addresses.patch
Modified:
trunk/libpoe-component-client-dns-perl/CHANGES
trunk/libpoe-component-client-dns-perl/DNS.pm
trunk/libpoe-component-client-dns-perl/META.yml
trunk/libpoe-component-client-dns-perl/Makefile.PL
trunk/libpoe-component-client-dns-perl/debian/changelog
trunk/libpoe-component-client-dns-perl/debian/control
trunk/libpoe-component-client-dns-perl/debian/patches/series
trunk/libpoe-component-client-dns-perl/t/01_resolve.t
trunk/libpoe-component-client-dns-perl/t/02_tag_args.t
trunk/libpoe-component-client-dns-perl/t/03_api_3.t
trunk/libpoe-component-client-dns-perl/t/04_errors.t
trunk/libpoe-component-client-dns-perl/t/05_api_4.t
trunk/libpoe-component-client-dns-perl/t/06_hosts.t
Modified: trunk/libpoe-component-client-dns-perl/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-dns-perl/CHANGES?rev=43162&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/CHANGES (original)
+++ trunk/libpoe-component-client-dns-perl/CHANGES Fri Aug 28 16:35:23 2009
@@ -1,3 +1,30 @@
+==================================
+2009-08-28T06:48:27.516134Z v1_050
+==================================
+
+ 2009-08-28 06:46:24 (r83) by rcaputo
+ t/02_tag_args.t M; DNS.pm M; t/03_api_3.t M; t/01_resolve.t M;
+ t/04_errors.t M; t/05_api_4.t M; Makefile.PL M; t/06_hosts.t M
+
+ Jonathan Yu found a warning while packaging this distro for Debian.
+ I've applied his patch from rt.cpan.org 48335, and I took his
+ suggestion to start using Test::NoWarnings.
+
+ Philip Gwyn found a strange case where IPv6 localhost was returned as
+ ::1 rather than the long form. Added a check for both forms.
+
+ Bumped the version to 1.050 for release.
+
+ 2009-08-28 06:03:27 (r82) by rcaputo; DNS.pm M
+
+ Fix a POD error (line too long, broken link to RT) reported by
+ Jonathan Yu, ironically in rt.cpan.org ticket 48336. :)
+
+ 2009-08-17 04:36:45 (r81) by rcaputo; DNS.pm M
+
+ Fix a warning for /etc/hosts files that contain blank lines or
+ comments. Suggested by Leonid Rashkovsky in e-mail.
+
=================================
2009-07-28T06:01:31.124742Z v1_04
=================================
Modified: trunk/libpoe-component-client-dns-perl/DNS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-dns-perl/DNS.pm?rev=43162&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/DNS.pm (original)
+++ trunk/libpoe-component-client-dns-perl/DNS.pm Fri Aug 28 16:35:23 2009
@@ -1,4 +1,4 @@
-# $Id: DNS.pm 79 2009-07-28 06:01:07Z rcaputo $
+# $Id: DNS.pm 83 2009-08-28 06:46:24Z rcaputo $
# License and documentation are after __END__.
# vim: ts=2 sw=2 expandtab
@@ -7,7 +7,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = '1.04';
+$VERSION = '1.050';
use Carp qw(croak);
@@ -507,10 +507,14 @@
my %cached_hosts;
while (<HOST>) {
- next if /^\s*\#/;
- s/^\s*//;
+ next if /^\s*\#/; # skip all-comment lines
+ next if /^\s*$/; # skip empty lines
chomp;
+
+ # Bare split discards leading and trailing whitespace.
my ($address, @aliases) = split;
+ next unless defined $address;
+
my $type = ($address =~ /:/) ? "AAAA" : "A";
foreach my $alias (@aliases) {
$cached_hosts{$alias}{$type}{$address} = 1;
@@ -765,7 +769,7 @@
=head1 BUG TRACKER
-https://rt.cpan.org/Dist/Display.html?Status=Active&Queue=POE-Component-Client-DNS
+https://rt.cpan.org/Dist/Display.html?Queue=POE-Component-Client-DNS
=head1 REPOSITORY
Modified: trunk/libpoe-component-client-dns-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-dns-perl/META.yml?rev=43162&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/META.yml (original)
+++ trunk/libpoe-component-client-dns-perl/META.yml Fri Aug 28 16:35:23 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: POE-Component-Client-DNS
-version: 1.04
+version: 1.050
abstract: Non-blocking/concurrent DNS queries using Net::DNS and POE
author:
- Rocco Caputo <rcaputo at cpan.org>
@@ -11,9 +11,10 @@
build_requires:
ExtUtils::MakeMaker: 0
requires:
- Net::DNS: 0.59
- POE: 1.007
- Test::More: 0
+ Net::DNS: 0.59
+ POE: 1.007
+ Test::More: 0
+ Test::NoWarnings: 0.084
resources:
license: http://dev.perl.org/licenses/
repository: http://thirdlobe.com/svn/poco-client-dns/trunk
Modified: trunk/libpoe-component-client-dns-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-dns-perl/Makefile.PL?rev=43162&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/Makefile.PL (original)
+++ trunk/libpoe-component-client-dns-perl/Makefile.PL Fri Aug 28 16:35:23 2009
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: Makefile.PL 79 2009-07-28 06:01:07Z rcaputo $
+# $Id: Makefile.PL 83 2009-08-28 06:46:24Z rcaputo $
use ExtUtils::MakeMaker;
@@ -14,9 +14,10 @@
VERSION_FROM => 'DNS.pm',
PM => { 'DNS.pm' => '$(INST_LIBDIR)/DNS.pm' },
PREREQ_PM => {
- 'POE' => 1.007,
- 'Net::DNS' => 0.59,
- 'Test::More' => 0,
+ 'POE' => 1.007,
+ 'Net::DNS' => 0.59,
+ 'Test::More' => 0,
+ 'Test::NoWarnings' => 0.084,
},
META_ADD => {
resources => {
Modified: trunk/libpoe-component-client-dns-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-dns-perl/debian/changelog?rev=43162&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/debian/changelog (original)
+++ trunk/libpoe-component-client-dns-perl/debian/changelog Fri Aug 28 16:35:23 2009
@@ -1,10 +1,19 @@
-libpoe-component-client-dns-perl (1:1.04-2) UNRELEASED; urgency=low
-
+libpoe-component-client-dns-perl (1:1.050-1) UNRELEASED; urgency=low
+
+ [ Jonathan Yu ]
+ * New upstream release
+ + Now uses Test::NoWarnings
+ + Fix for a strange case where IPv6 localhost was returned as ::1,
+ rather than the long form
+ * Standards-Version 3.8.3 (no changes)
+ * Remove patches which were applied upstream (RT#48335)
+
+ [ Salvatore Bonaccorso ]
* debian/control: Changed: Replace versioned (build-)dependency on
perl (>= 5.6.0-{12,16}) with an unversioned dependency on perl (as
permitted by Debian Policy 3.8.3).
- -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com> Sun, 16 Aug 2009 20:15:34 +0200
+ -- Jonathan Yu <frequency at cpan.org> Fri, 28 Aug 2009 08:27:11 -0400
libpoe-component-client-dns-perl (1:1.04-1) unstable; urgency=low
Modified: trunk/libpoe-component-client-dns-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-dns-perl/debian/control?rev=43162&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/debian/control (original)
+++ trunk/libpoe-component-client-dns-perl/debian/control Fri Aug 28 16:35:23 2009
@@ -3,12 +3,12 @@
Priority: optional
Build-Depends: debhelper (>= 7.0.8), quilt (>= 0.46-7)
Build-Depends-Indep: perl, libnet-dns-perl (>= 0.59), netbase,
- libpoe-perl (>= 2:1.0070)
+ libpoe-perl (>= 2:1.0070), libtest-nowarnings-perl (>= 0.084)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Jonathan Yu <frequency at cpan.org>, Antonio Radici <antonio at dyne.org>,
Jose Luis Rivas <ghostbar38 at gmail.com>, gregor herrmann <gregoa at debian.org>,
MartÃn Ferrari <tincho at debian.org>, Rene Mayorga <rmayorga at debian.org>
-Standards-Version: 3.8.2
+Standards-Version: 3.8.3
Homepage: http://search.cpan.org/dist/POE-Component-Client-DNS/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libpoe-component-client-dns-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libpoe-component-client-dns-perl/
Modified: trunk/libpoe-component-client-dns-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-dns-perl/debian/patches/series?rev=43162&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/debian/patches/series (original)
+++ trunk/libpoe-component-client-dns-perl/debian/patches/series Fri Aug 28 16:35:23 2009
@@ -1,3 +1,1 @@
-fix-link-length.patch
-skip-undefined-addresses.patch
fix_pod.patch
Modified: trunk/libpoe-component-client-dns-perl/t/01_resolve.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-dns-perl/t/01_resolve.t?rev=43162&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/t/01_resolve.t (original)
+++ trunk/libpoe-component-client-dns-perl/t/01_resolve.t Fri Aug 28 16:35:23 2009
@@ -1,14 +1,13 @@
#!/usr/bin/perl -w
-# $Id: 01_resolve.t 28 2003-11-22 05:33:01Z rcaputo $
+# $Id: 01_resolve.t 83 2009-08-28 06:46:24Z rcaputo $
use strict;
use lib '/home/troc/perl/poe';
sub POE::Kernel::ASSERT_DEFAULT () { 1 }
use POE qw(Component::Client::DNS);
-
-$| = 1;
-print "1..3\n";
+use Test::More tests => 4;
+use Test::NoWarnings;
sub DNS_TIMEOUT () { 3 };
sub DEBUG () { 0 };
@@ -144,26 +143,26 @@
warn "other records: $heap->{other_records}\n";
}
- print 'not '
- unless (
- $heap->{answers} + $heap->{no_answers} +
- $heap->{timeouts} + $heap->{errors} ==
- @hostnames
- );
- print "ok 1\n";
+ is(
+ $heap->{answers} + $heap->{no_answers} +
+ $heap->{timeouts} + $heap->{errors},
+ scalar(@hostnames),
+ "expected number of outcomes"
+ );
- print 'not '
- if (
- $heap->{a_records} + $heap->{mx_records} +
- $heap->{cname_records} + $heap->{other_records} <
- $heap->{answers}
- );
- print "ok 2\n";
+ ok(
+ $heap->{a_records} + $heap->{mx_records}
+ + $heap->{cname_records} + $heap->{other_records}
+ >= $heap->{answers},
+ "got enough records"
+ );
# Cut some slack for people running on really really slow systems.
- print 'not '
- unless (time() - $heap->{start_time}) < ((DNS_TIMEOUT * @hostnames) / 2);
- print "ok 3\n";
+
+ ok(
+ time() - $heap->{start_time} < (DNS_TIMEOUT * @hostnames) / 2,
+ "tests ran sufficiently quickly"
+ );
DEBUG and warn "client stopped...\n";
}
Modified: trunk/libpoe-component-client-dns-perl/t/02_tag_args.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-dns-perl/t/02_tag_args.t?rev=43162&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/t/02_tag_args.t (original)
+++ trunk/libpoe-component-client-dns-perl/t/02_tag_args.t Fri Aug 28 16:35:23 2009
@@ -5,7 +5,8 @@
use POE qw(Component::Client::DNS);
use Data::Dumper;
-print "1..4\n";
+use Test::More tests => 5;
+use Test::NoWarnings;
my $reverse = "127.0.0.1";
@@ -14,16 +15,13 @@
Timeout => 5,
);
-my @tests = ("not ") x 4;
-my $test_number = 0;
-
POE::Session->create(
inline_states => {
_start => sub {
for (1..4) {
$_[KERNEL]->post(
named => resolve =>
- [ reverse => "TEST WORKED", $test_number++ ] =>
+ [ reverse => "TEST WORKED" ] =>
$reverse, 'PTR'
);
}
@@ -32,17 +30,11 @@
_stop => sub { }, # for asserts
reverse => sub {
- if ($_[ARG0][3] eq "TEST WORKED") {
- $tests[$_[ARG0][4]] = "";
- }
+ is( $_[ARG0][3], "TEST WORKED", "test worked" );
},
}
);
POE::Kernel->run;
-for (1.. at tests) {
- print shift(@tests), "ok $_\n";
-}
-
exit 0;
Modified: trunk/libpoe-component-client-dns-perl/t/03_api_3.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-dns-perl/t/03_api_3.t?rev=43162&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/t/03_api_3.t (original)
+++ trunk/libpoe-component-client-dns-perl/t/03_api_3.t Fri Aug 28 16:35:23 2009
@@ -1,5 +1,5 @@
#!/usr/bin/perl -w
-# $Id: 03_api_3.t 56 2006-05-21 20:43:08Z rcaputo $
+# $Id: 03_api_3.t 83 2009-08-28 06:46:24Z rcaputo $
# vim: filetype=perl
# Test the version 3 API.
@@ -7,7 +7,8 @@
use strict;
sub POE::Kernel::ASSERT_DEFAULT () { 1 }
use POE qw(Component::Client::DNS);
-use Test::More tests => 4;
+use Test::More tests => 5;
+use Test::NoWarnings;
POE::Component::Client::DNS->spawn(
Alias => 'named',
Modified: trunk/libpoe-component-client-dns-perl/t/04_errors.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-dns-perl/t/04_errors.t?rev=43162&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/t/04_errors.t (original)
+++ trunk/libpoe-component-client-dns-perl/t/04_errors.t Fri Aug 28 16:35:23 2009
@@ -1,5 +1,5 @@
#!/usr/bin/perl -w
-# $Id: 04_errors.t 73 2009-02-18 04:48:06Z rcaputo $
+# $Id: 04_errors.t 83 2009-08-28 06:46:24Z rcaputo $
# vim: filetype=perl
# Deliberately trigger errors.
@@ -9,7 +9,8 @@
sub POE::Kernel::CATCH_EXCEPTIONS () { 0 }
use POE qw(Component::Client::DNS);
-use Test::More tests => 9;
+use Test::More tests => 10;
+use Test::NoWarnings;
# Avoid a warning.
POE::Kernel->run();
Modified: trunk/libpoe-component-client-dns-perl/t/05_api_4.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-dns-perl/t/05_api_4.t?rev=43162&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/t/05_api_4.t (original)
+++ trunk/libpoe-component-client-dns-perl/t/05_api_4.t Fri Aug 28 16:35:23 2009
@@ -1,5 +1,5 @@
#!/usr/bin/perl -w
-# $Id: 05_api_4.t 56 2006-05-21 20:43:08Z rcaputo $
+# $Id: 05_api_4.t 83 2009-08-28 06:46:24Z rcaputo $
# vim: filetype=perl
# Test the version 3 API.
@@ -7,7 +7,8 @@
use strict;
sub POE::Kernel::ASSERT_DEFAULT () { 1 }
use POE qw(Component::Client::DNS);
-use Test::More tests => 4;
+use Test::More tests => 5;
+use Test::NoWarnings;
my $resolver = POE::Component::Client::DNS->spawn(
Alias => 'named',
Modified: trunk/libpoe-component-client-dns-perl/t/06_hosts.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-dns-perl/t/06_hosts.t?rev=43162&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/t/06_hosts.t (original)
+++ trunk/libpoe-component-client-dns-perl/t/06_hosts.t Fri Aug 28 16:35:23 2009
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: 06_hosts.t 77 2009-07-26 06:30:34Z rcaputo $
+# $Id: 06_hosts.t 83 2009-08-28 06:46:24Z rcaputo $
# vim: filetype=perl
# Test the hosts file stuff.
@@ -8,7 +8,8 @@
use strict;
sub POE::Kernel::ASSERT_DEFAULT () { 1 }
use POE qw(Component::Client::DNS);
-use Test::More tests => 4;
+use Test::More tests => 5;
+use Test::NoWarnings;
require Net::DNS;
my $can_resolve = Net::DNS::Resolver->new->search("poe.perl.org");
@@ -100,7 +101,7 @@
my $response = $_[ARG0];
my $address = aaaa_data($response);
ok(
- $address eq "0:0:0:0:0:0:0:1",
+ ($address eq "0:0:0:0:0:0:0:1" or $address eq "::1"),
"ipv6 lookup when hosts file matches ($address)"
);
More information about the Pkg-perl-cvs-commits
mailing list