do live test against example.com (GH #84)

www.neverssl.com is nowadays quite unreliable. The first precheck
sometimes succeeds, but the real check fails afterwards, generating
FAIL tests.

example.com is not perfect, but seem to perform better.

The test host can now be set by $host variable.

The precheck is skipped during "perl -c", possibly reducing load on
the test host (think of IDEs which do syntax checking using "perl -c").

Author: eserte

t/live.t

@@ -1,20 +1,26 @@
+my $host;
+BEGIN { $host = 'example.com' }
+#BEGIN { $host = 'www.neverssl.com' }
+
 BEGIN {
     if ( $ENV{NO_NETWORK_TESTING} ) {
-        print "1..0 # SKIP Live tests disabled due to NO_NETWORK_TESTING\n";
-        exit;
+	print "1..0 # SKIP Live tests disabled due to NO_NETWORK_TESTING\n";
+	exit;
     }
-    eval {
-        require IO::Socket::INET;
-        my $s = IO::Socket::INET->new(
-            PeerHost => "www.neverssl.com:80",
-            Timeout  => 5,
-        );
-        die "Can't connect: $@" unless $s;
-    };
-    if ($@) {
-        print "1..0 # SKIP Can't connect to www.neverssl.com\n";
-        print $@;
-        exit;
+    if ( !$^C ) { # avoid running the test connection with "perl -c"
+	eval {
+	    require IO::Socket::INET;
+	    my $s = IO::Socket::INET->new(
+		PeerHost => "$host:80",
+		Timeout  => 5,
+	    );
+	    die "Can't connect: $@" unless $s;
+	};
+	if ($@) {
+	    print "1..0 # SKIP Can't connect to $host\n";
+	    print $@;
+	    exit;
+	}
     }
 }
 
@@ -26,7 +32,7 @@ plan tests => 6;
 use Net::HTTP;
 
 my $s = Net::HTTP->new(
-    Host            => "www.neverssl.com",
+    Host            => $host,
     KeepAlive       => 1,
     Timeout         => 15,
     PeerHTTPVersion => "1.1",