Description: skip network tests
Origin: vendor
Forwarded: not needed
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2016-08-12

--- a/t/getaddrinfo.t
+++ b/t/getaddrinfo.t
@@ -70,6 +70,7 @@
 my $goodhost = "cpan.perl.org";
 
 SKIP: {
+    skip "No network access during Debian builds", 2 if $ENV{NO_NETWORK};
     skip "Resolver has no answer for $goodhost", 2 unless gethostbyname( $goodhost );
 
     ( $err, @res ) = getaddrinfo( "cpan.perl.org", "ftp", { socktype => SOCK_STREAM } );
@@ -85,6 +86,7 @@
 # any request. We'd better check for them
 
 SKIP: {
+    skip "No network access during Debian builds", 1 if $ENV{NO_NETWORK};
     skip "Resolver has an answer for $missinghost", 1 if gethostbyname( $missinghost );
 
     # Some OSes return $err == 0 but no results
@@ -124,6 +126,7 @@
 # Now check that names with AI_NUMERICHOST fail
 
 SKIP: {
+    skip "No network access during Debian builds", 1 if $ENV{NO_NETWORK};
     skip "Resolver has no answer for $goodhost", 1 unless gethostbyname( $goodhost );
 
     ( $err, @res ) = getaddrinfo( $goodhost, "ftp", { flags => AI_NUMERICHOST, socktype => SOCK_STREAM } );