r27415 - in /trunk/libpoe-component-client-dns-perl/debian: changelog patches/series patches/use_netdns_instead_of_harcode_ips.patch

[rmayorga-guest at users.alioth.debian.org]

Author: rmayorga-guest
Date: Sat Nov 29 01:15:34 2008
New Revision: 27415

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27415
Log:
* Add debian/patches/use_netdns_instead_of_harcode_ips.patch
  + this use Net::DNS to resolve poe.perl.org IP address instead of 
    using a hardcode address at tests. Closes: #506915

Added:
    trunk/libpoe-component-client-dns-perl/debian/patches/use_netdns_instead_of_harcode_ips.patch
Modified:
    trunk/libpoe-component-client-dns-perl/debian/changelog
    trunk/libpoe-component-client-dns-perl/debian/patches/series

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=27415&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/debian/changelog (original)
+++ trunk/libpoe-component-client-dns-perl/debian/changelog Sat Nov 29 01:15:34 2008
@@ -1,9 +1,15 @@
 libpoe-component-client-dns-perl (1:1.01-2) UNRELEASED; urgency=low
 
+  [ gregor herrmann ]
   * debian/control: Changed: Switched Vcs-Browser field to ViewSVN
     (source stanza).
 
- -- gregor herrmann <gregoa at debian.org>  Sun, 16 Nov 2008 20:46:14 +0100
+  [ Rene Mayorga ]
+  * Add debian/patches/use_netdns_instead_of_harcode_ips.patch
+    + this use Net::DNS to resolve poe.perl.org IP address instead of 
+      using a hardcode address at tests. Closes: #506915
+
+ -- Rene Mayorga <rmayorga at debian.org.sv>  Fri, 28 Nov 2008 17:05:53 -0600
 
 libpoe-component-client-dns-perl (1:1.01-1) unstable; urgency=low
 

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=27415&op=diff
==============================================================================
--- trunk/libpoe-component-client-dns-perl/debian/patches/series (original)
+++ trunk/libpoe-component-client-dns-perl/debian/patches/series Sat Nov 29 01:15:34 2008
@@ -1,1 +1,2 @@
 fix_pod.patch
+use_netdns_instead_of_harcode_ips.patch

Added: trunk/libpoe-component-client-dns-perl/debian/patches/use_netdns_instead_of_harcode_ips.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-dns-perl/debian/patches/use_netdns_instead_of_harcode_ips.patch?rev=27415&op=file
==============================================================================
--- trunk/libpoe-component-client-dns-perl/debian/patches/use_netdns_instead_of_harcode_ips.patch (added)
+++ trunk/libpoe-component-client-dns-perl/debian/patches/use_netdns_instead_of_harcode_ips.patch Sat Nov 29 01:15:34 2008
@@ -1,0 +1,37 @@
+Author: Rene Mayorga <rmayorga at debian.org.sv>
+Description: Use Net::DNS to get poe.perl.org's IP Address
+
+--- libpoe-component-client-dns-perl.orig/t/06_hosts.t
++++ libpoe-component-client-dns-perl/t/06_hosts.t
+@@ -13,6 +13,13 @@
+ require Net::DNS;
+ my $can_resolve = Net::DNS::Resolver->new->search("poe.perl.org");
+ 
++my $addr;
++if ($can_resolve) {
++    foreach ($can_resolve->answer) {
++        $addr = $_->address unless $_->type ne "A";
++    }
++}
++
+ use constant HOSTS_FILE => "./test-hosts";
+ 
+ my $resolver = POE::Component::Client::DNS->spawn(
+@@ -52,7 +59,7 @@
+     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"),
++      $address eq $addr,
+       "lookup with no hosts file ($address)"
+     );
+   }
+@@ -98,7 +105,7 @@
+     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"),
++      $address eq $addr,
+       "lookup with hosts file but no match ($address)"
+     );
+   }