check error

SolveMedia · Jan 24, 2013 · fb8fbff · fb8fbff
1 parent d47243f
commit fb8fbff
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/monbin/https b/monbin/https
@@ -23,6 +23,7 @@ my $s =  IO::Socket::SSL->new(
     SSL_verify_mode => SSL_VERIFY_NONE,
    );
 
+die "error $addr\n" unless $s;
 $s->print(join('', map{ "$_\r\n" }
                "GET $file HTTP/1.0",
                "Host: $host",