r26512 - in /trunk/libpoe-component-client-dns-perl: CHANGES DNS.pm META.yml debian/changelog t/06_hosts.t
ghostbar-guest at users.alioth.debian.org
ghostbar-guest at users.alioth.debian.org
Sun Nov 2 06:58:48 UTC 2008
Author: ghostbar-guest
Date: Sun Nov 2 06:58:45 2008
New Revision: 26512
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=26512
Log:
new upstream release
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/debian/changelog
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=26512&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/CHANGES (original)
+++ trunk/libpoe-component-client-dns-perl/CHANGES Sun Nov 2 06:58:45 2008
@@ -1,57 +1,19 @@
-======================================
-9999-99-99 99:99:99.999999Z (untagged)
-======================================
+=================================
+2008-10-29T16:19:41.680362Z v1_01
+=================================
- 2007-01-06 18:12:47 (r64) by rcaputo; DNS.pm M
+ 2008-10-29 16:18:54 (r68) by rcaputo; DNS.pm M
- By the power of PAUSEskull, this is a fine morning! Release 1.00!
+ New version.
- 2007-01-06 18:11:52 (r63) by rcaputo; DNS.pm M
+ 2008-10-15 03:18:31 (r67) by rcaputo; t/06_hosts.t M
- Expose the underlying Net::DNS::Resolver with a get_resolver()
- accessor. Thanks to Chris Williams for kinda suggesting it. :)
+ Accommodate DNS change for poe.perl.org in the tests.
- 2006-11-06 19:23:35 (r62) by rcaputo; Makefile.PL M
+ 2008-03-24 17:33:22 (r66) by rcaputo; t/06_hosts.t M
- Set a LICENSE. Cheap kwalitee points!
-
- 2006-10-17 16:35:24 (r61) by rcaputo; t/06_hosts.t M
-
- Don't try to call a method on a failed request. Resolves rt.cpan.org
- 21190 by Alexandr Ciornii.
-
- 2006-10-17 15:05:34 (r60) by rcaputo; Makefile.PL M
-
- Some rt.cpan.org tickets refer to issues in Net::DNS. Require the
- latest version of that dependency in the hopes that some things are
- fixed. Too bad I don't have test cases for those issues... there's no
- way for me to tell if anything's fixed by this simple change.
-
-=========================
-2006-05-21 20:45:46 v0_99
-=========================
-
- 2006-05-21 20:45:11 (r58) by rcaputo; DNS.pm M
-
- Bump up the version.
-
- 2006-05-21 20:44:39 (r57) by rcaputo; DNS.pm M
-
- Fix shutdown(). It was not performing nearly enough cleanup.
-
- Replace some post() calls with call() to avoid race conditions. In
- general, method interfaces should use call() rather than post() so
- that they affect internal structures synchronously.
-
- 2006-05-21 20:43:08 (r56) by rcaputo
- t/02_tag_args.t M; t/03_api_3.t M; t/05_api_4.t M; t/06_hosts.t M
-
- Turn on ASSERT_DEFAULT for some of the tests. Add _stop handlers so
- they don't fail with all POE asserts on.
-
- 2006-03-24 03:58:51 (r55) by rcaputo; DNS.pm M
-
- Belatedly bump up the version.
+ Apply Martin Ferrari's patch to skip network tests if there's no
+ detectable network. Resolves rt.cpan.org ticket 33677.
==============
End of Excerpt
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=26512&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/DNS.pm (original)
+++ trunk/libpoe-component-client-dns-perl/DNS.pm Sun Nov 2 06:58:45 2008
@@ -1,4 +1,4 @@
-# $Id: DNS.pm 64 2007-01-06 18:12:47Z rcaputo $
+# $Id: DNS.pm 68 2008-10-29 16:18:54Z rcaputo $
# License and documentation are after __END__.
package POE::Component::Client::DNS;
@@ -6,7 +6,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = '1.00';
+$VERSION = '1.01';
use Carp qw(croak);
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=26512&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/META.yml (original)
+++ trunk/libpoe-component-client-dns-perl/META.yml Sun Nov 2 06:58:45 2008
@@ -1,16 +1,16 @@
--- #YAML:1.0
name: POE-Component-Client-DNS
-version: 1.00
+version: 1.01
abstract: Non-blocking/concurrent DNS queries using Net::DNS and POE
license: perl
-generated_by: ExtUtils::MakeMaker version 6.31
+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
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
-author:
- - Rocco Caputo <rcaputo at cpan.org>
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
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=26512&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/debian/changelog (original)
+++ trunk/libpoe-component-client-dns-perl/debian/changelog Sun Nov 2 06:58:45 2008
@@ -1,4 +1,4 @@
-libpoe-component-client-dns-perl (1:1.00-2) UNRELEASED; urgency=low
+libpoe-component-client-dns-perl (1:1.01-1) UNRELEASED; urgency=low
[ MartÃn Ferrari ]
* Updating my email address
@@ -7,7 +7,10 @@
* Add debian/README.source to document quilt usage, as required by
Debian Policy since 3.8.0.
- -- MartÃn Ferrari <tincho at debian.org> Fri, 13 Jun 2008 00:04:46 +0000
+ [ Jose Luis Rivas ]
+ * (NOT RELEASED YET) New upstream release
+
+ -- Jose Luis Rivas <ghostbar38 at gmail.com> Sun, 02 Nov 2008 02:27:57 -0430
libpoe-component-client-dns-perl (1:1.00-1) unstable; urgency=low
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=26512&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/t/06_hosts.t (original)
+++ trunk/libpoe-component-client-dns-perl/t/06_hosts.t Sun Nov 2 06:58:45 2008
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: 06_hosts.t 61 2006-10-17 16:35:24Z rcaputo $
+# $Id: 06_hosts.t 67 2008-10-15 03:18:31Z rcaputo $
# vim: filetype=perl
# Test the hosts file stuff.
@@ -9,6 +9,9 @@
sub POE::Kernel::ASSERT_DEFAULT () { 1 }
use POE qw(Component::Client::DNS);
use Test::More tests => 3;
+
+require Net::DNS;
+my $can_resolve = Net::DNS::Resolver->new->search("poe.perl.org");
use constant HOSTS_FILE => "./test-hosts";
@@ -45,10 +48,14 @@
sub response_no_hosts {
my $response = $_[ARG0];
my $address = a_data($response);
- ok(
- $address eq "66.33.204.143",
- "lookup without hosts file ($address)"
- );
+ SKIP: {
+ skip "Can't resolve with Net::DNS, network probably not available", 1
+ unless($can_resolve);
+ ok(
+ ($address eq "67.207.145.70") || ($address eq "208.97.190.64"),
+ "lookup with no hosts file ($address)"
+ );
+ }
# 2. Test with a hosts file that contains a host match.
unlink HOSTS_FILE; # Changes inode!
@@ -68,7 +75,7 @@
my $address = a_data($response);
ok(
$address eq "123.456.789.012",
- "lookup without hosts file match ($address)"
+ "lookup when hosts file matches ($address)"
);
# 3. Test against a hosts file without a host match.
@@ -87,10 +94,14 @@
sub response_hosts_nomatch {
my $response = $_[ARG0];
my $address = a_data($response);
- ok(
- $address eq "66.33.204.143",
- "lookup without hosts file match ($address)"
- );
+ SKIP: {
+ skip "Can't resolve with Net::DNS, network probably not available", 1
+ unless($can_resolve);
+ ok(
+ ($address eq "67.207.145.70") || ($address eq "208.97.190.64"),
+ "lookup with hosts file but no match ($address)"
+ );
+ }
unlink HOSTS_FILE;
}
More information about the Pkg-perl-cvs-commits
mailing list