Abstract out GIT_HOST

[bin.git] / site_tester

diff --git a/site_tester b/site_tester
index 6919918211107f461291cefe2280b33d39c51dad..afbf9aa84e3f32f73b46e97423d220478efb3ade 100755 (executable)
--- a/site_tester
+++ b/site_tester
@@ -51,6 +51,7 @@ Display this manual.
 
 use vars qw($DEBUG);
 
+use IO::File;
 use WWW::Mechanize;
 
 my %options = (debug           => 0,
@@ -110,7 +111,7 @@ for my $conf_file (@conf_files) {
     }
 }
 
-my $mech = WWW::Mechanize->new(autocheck => 1);
+my $mech = WWW::Mechanize->new(autocheck => 0);
 $mech->{____special_host} = $options{ip_addr};
 LWP::Protocol::implementor('http','SITE_TESTER::http');