r15922 - in /branches/upstream/libpoe-component-client-dns-perl/current: CHANGES DNS.pm META.yml Makefile.PL t/06_hosts.t

tincho-guest at users.alioth.debian.org tincho-guest at users.alioth.debian.org
Thu Feb 28 22:13:47 UTC 2008 

Author: tincho-guest
Date: Thu Feb 28 22:13:47 2008
New Revision: 15922

URL: http://svn.debian.org/wsvn/?sc=1&rev=15922
Log:
[svn-upgrade] Integrating new upstream version, libpoe-component-client-dns-perl (1.00)

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/Makefile.PL
    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/branches/upstream/libpoe-component-client-dns-perl/current/CHANGES?rev=15922&op=diff
==============================================================================
--- branches/upstream/libpoe-component-client-dns-perl/current/CHANGES (original)
+++ branches/upstream/libpoe-component-client-dns-perl/current/CHANGES Thu Feb 28 22:13:47 2008
@@ -1,3 +1,32 @@
+======================================
+9999-99-99 99:99:99.999999Z (untagged)
+======================================
+
+  2007-01-06 18:12:47 (r64) by rcaputo; DNS.pm M
+
+    By the power of PAUSEskull, this is a fine morning! Release 1.00! 
+
+  2007-01-06 18:11:52 (r63) by rcaputo; DNS.pm M
+
+    Expose the underlying Net::DNS::Resolver with a get_resolver()
+    accessor. Thanks to Chris Williams for kinda suggesting it. :) 
+
+  2006-11-06 19:23:35 (r62) by rcaputo; Makefile.PL 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
 =========================
@@ -24,69 +53,6 @@
 
     Belatedly bump up the version. 
 
-===========================
-2005-12-05 18:36:03 v0_9803
-===========================
-
-  2005-12-05 18:34:05 (r53) by rcaputo; t/04_errors.t M
-
-    Add the CATCH_EXCEPTIONS toggle that lets me catch my own damn
-    errors. Sweet! Also expanded the common test code so that line
-    numbers would be properly reported. 
-
-===========================
-2005-08-07 22:37:35 v0_9802
-===========================
-
-  2005-08-01 17:07:05 (r51) by rcaputo; DNS.pm M
-
-    Make the hosts file size significant when checking for changes. 
-
-  2005-08-01 17:06:41 (r50) by rcaputo; t/06_hosts.t M
-
-    Force an inode change in the tests, although this doesn't really have
-    an effect. 
-
-  2005-08-01 17:02:16 (r49) by rcaputo; Makefile.PL M
-
-    Update dependencies to match newest modules. 
-
-===========================
-2005-07-29 15:49:17 v0_9801
-===========================
-
-  2005-07-29 15:41:12 (r47) by rcaputo; DNS.pm M
-
-    Bump version for release. 
-
-  2005-07-28 05:59:31 (r46) by rcaputo; DNS.pm M
-
-    Some systems include IPv4 and IPv6 addresses for "localhost". OS X is
-    one of them. This commit causes the component to prefer IPv4
-    addresses when there's a choice. It's a bad fix, but it'll have to do
-    for now. We really should check whether the request is for an A or
-    AAAA record and use the appropriate address. 
-
-  2005-07-07 22:07:27 (r45) by rcaputo
-  DNS.pm M; MANIFEST M; t/06_hosts.t A
-
-    Cache /etc/hosts (or its equivalent) in memory. This should save some
-    CPU and disk access, even though the module must stat() /etc/hosts
-    for each request. This closes rt.cpan.org ticket 7916.
-    
-    Let the user supply an /etc/hosts (or equivalent) file at component
-    creation time. This lets them find hosts files in obscure locations,
-    plus it lets us write a test that verifies the caching logic by using
-    specific hosts files. This closes rt.cpan.org ticket 13581. 
-
-  2005-06-21 13:38:43 (r44) by rcaputo; MANIFEST M; Makefile.PL M
-
-    Remove META.yml from MANIFEST. It seems that "make dist" inserts it
-    and creates a META.yml file in the distribution but not in the
-    working copy.
-    
-    Change cvs-log.perl to svn-log.perl in Makefile.PL. 
-
 ==============
 End of Excerpt
 ==============

Modified: branches/upstream/libpoe-component-client-dns-perl/current/DNS.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libpoe-component-client-dns-perl/current/DNS.pm?rev=15922&op=diff
==============================================================================
--- branches/upstream/libpoe-component-client-dns-perl/current/DNS.pm (original)
+++ branches/upstream/libpoe-component-client-dns-perl/current/DNS.pm Thu Feb 28 22:13:47 2008
@@ -1,4 +1,4 @@
-# $Id: DNS.pm 58 2006-05-21 20:45:11Z rcaputo $
+# $Id: DNS.pm 64 2007-01-06 18:12:47Z rcaputo $
 # License and documentation are after __END__.
 
 package POE::Component::Client::DNS;
@@ -6,7 +6,7 @@
 use strict;
 
 use vars qw($VERSION);
-$VERSION = '0.99';
+$VERSION = '1.00';
 
 use Carp qw(croak);
 
@@ -520,6 +520,13 @@
   return $self->[SF_HOSTS_CACHE]{$host};
 }
 
+### NOT A POE EVENT HANDLER
+
+sub get_resolver {
+  my $self = shift;
+  return $self->[SF_RESOLVER];
+}
+
 1;
 
 __END__
@@ -673,6 +680,16 @@
 shutdown() causes the component to terminate gracefully. It will finish
 serving pending requests then close down.
 
+=item get_resolver
+
+POE::Component::Client::DNS uses a Net::DNS::Resolver object
+internally.  get_resolver() returns that object so it may be
+interrogated or modified.  See L<Net::DNS::Resolver> for options.
+
+Set the resolver to check on nonstandard port 1153:
+
+  $poco_client_dns->resolver()->port(1153);
+
 =head1 RESPONSE MESSAGES
 
 POE::Component::Client::DNS responds in one of two ways.  Its

Modified: branches/upstream/libpoe-component-client-dns-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libpoe-component-client-dns-perl/current/META.yml?rev=15922&op=diff
==============================================================================
--- branches/upstream/libpoe-component-client-dns-perl/current/META.yml (original)
+++ branches/upstream/libpoe-component-client-dns-perl/current/META.yml Thu Feb 28 22:13:47 2008
@@ -1,15 +1,16 @@
 --- #YAML:1.0
 name:                POE-Component-Client-DNS
-version:             0.99
+version:             1.00
 abstract:            Non-blocking/concurrent DNS queries using Net::DNS and POE
-license:             unknown
-generated_by:        ExtUtils::MakeMaker version 6.30_01
-author:              Rocco Caputo <rcaputo at cpan.org>
+license:             perl
+generated_by:        ExtUtils::MakeMaker version 6.31
 distribution_type:   module
 requires:     
-    Net::DNS:                      0.53
+    Net::DNS:                      0.59
     POE:                           0.31
     Test::More:                    0
 meta-spec:
-    url: <http://module-build.sourceforge.net/META-spec-new.html>;
-    version: 1.1
+    url:     http://module-build.sourceforge.net/META-spec-v1.2.html
+    version: 1.2
+author:
+    - Rocco Caputo <rcaputo at cpan.org>

Modified: branches/upstream/libpoe-component-client-dns-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libpoe-component-client-dns-perl/current/Makefile.PL?rev=15922&op=diff
==============================================================================
--- branches/upstream/libpoe-component-client-dns-perl/current/Makefile.PL (original)
+++ branches/upstream/libpoe-component-client-dns-perl/current/Makefile.PL Thu Feb 28 22:13:47 2008
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: Makefile.PL 49 2005-08-01 17:02:16Z rcaputo $
+# $Id: Makefile.PL 62 2006-11-06 19:23:35Z rcaputo $
 
 use ExtUtils::MakeMaker;
 
@@ -10,11 +10,12 @@
   NAME         => 'POE::Component::Client::DNS',
   AUTHOR       => 'Rocco Caputo <rcaputo at cpan.org>',
   ABSTRACT     => 'Non-blocking/concurrent DNS queries using Net::DNS and POE',
+  LICENSE      => 'perl',
   VERSION_FROM => 'DNS.pm',
   PM           => { 'DNS.pm' => '$(INST_LIBDIR)/DNS.pm' },
   PREREQ_PM    => {
     'POE'        => 0.31,
-    'Net::DNS'   => 0.53,
+    'Net::DNS'   => 0.59,
     'Test::More' => 0,
   },
   dist         => {

Modified: branches/upstream/libpoe-component-client-dns-perl/current/t/06_hosts.t
URL: http://svn.debian.org/wsvn/branches/upstream/libpoe-component-client-dns-perl/current/t/06_hosts.t?rev=15922&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 Thu Feb 28 22:13:47 2008
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: 06_hosts.t 56 2006-05-21 20:43:08Z rcaputo $
+# $Id: 06_hosts.t 61 2006-10-17 16:35:24Z rcaputo $
 # vim: filetype=perl
 
 # Test the hosts file stuff.
@@ -99,6 +99,7 @@
 
 sub a_data {
   my $response = shift;
+  return "" unless defined $response->{response};
 
   return (
     grep { ref() eq "Net::DNS::RR::A" } $response->{response}->answer()

More information about the Pkg-perl-cvs-commits mailing list