view release on metacpan or  search on metacpan

t/lib/Apache/test.pm  view on Meta::CPAN

19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
        # Validate that the OS knows the name of the server in $net::httpserver     
        # if 'localhost' is not defined, the tests wouldn't pass
        (my $hostname) = ($net::httpserver =~ /(.*?):/);
        warn qq{\n*** [Crucial] You must define "$hostname" (e.g. in /etc/hosts) in order for 'make test' to pass\n} 
        unless gethostbyname $hostname;
    }
}
 
$PERL_DIR = $ENV{PERL_DIR} if exists $ENV{PERL_DIR};
 
$USE_THREAD = ($Config{extensions} =~ /Thread/) || $Config{usethreads};
$USE_SFIO = (($Config{'usesfio'} || '') eq 'true');
 
my $Is_Win32 = ($^O eq "MSWin32");
sub WIN32 () { $Is_Win32 };
 
my $UA;
 
eval {
    require LWP::UserAgent;
    $UA = LWP::UserAgent->new;