devel/p5-Git-PurePerl/files/patch-t_protocol__gpp.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

--- t/protocol_gpp.t.orig	2013-08-26 11:24:05 UTC
+++ t/protocol_gpp.t
@@ -6,6 +6,13 @@ use IO::File;
 use Path::Class;
 use Test::More;
 
+my $socket = IO::Socket::INET->new("www.google.com:80");
+if ($socket) {
+	close ($socket);
+} else {
+	plan skip_all => 'No Internet connection?';
+}
+
 my $directory = 'test-protocol';
 dir($directory)->rmtree;