File fix-tests.diff of Package perl-Net-DNS

Overview Repositories Revisions Requests Users Attributes Meta

File fix-tests.diff of Package perl-Net-DNS

Index: Net-DNS-0.65/t/01-resolver.t
===================================================================
--- Net-DNS-0.65.orig/t/01-resolver.t
+++ Net-DNS-0.65/t/01-resolver.t
@@ -74,9 +74,6 @@ my $sock = IO::Socket::INET->new(PeerAdd
 				 Proto    => 'udp');
 
 
-my $ip=Net::IP->new(inet_ntoa($sock->sockaddr));
-	    
-
 SKIP: {
 	skip 'Online tests disabled.', 3
 		unless -e 't/online.enabled';
@@ -84,13 +81,15 @@ SKIP: {
 	skip 'Online tests disabled.', 3
 		if -e 't/online.disabled';
 
+        my $ip=Net::IP->new(inet_ntoa($sock->sockaddr));
+
 	skip 'Tests may not run succesful from private IP('.$ip->ip() .')', 3
 	    if ($ip->iptype() ne "PUBLIC");
 
 	my $res = Net::DNS::Resolver->new;
 	
 	$res->nameservers('a.t.net-dns.org');
-	my $ip = ($res->nameservers)[0];
+	$ip = ($res->nameservers)[0];
 	is($ip, '10.0.1.128', 'Nameservers() looks up IP.') or
 	    diag ($res->errorstring . $res->print) ;
 	
Index: Net-DNS-0.65/t/online.disabled
===================================================================
--- /dev/null
+++ Net-DNS-0.65/t/online.disabled
@@ -0,0 +1 @@
+# nada

Places

File fix-tests.diff of Package perl-Net-DNS

Places