| line |
l |
!l&&r |
!l&&!r |
condition |
|
207
|
0 |
0 |
0 |
$$self{'_httpd_version'} ||= do {
die 'dying due to previous error' unless my $lines = $self->_read_cmd($self->httpd, '-v');
die 'failed to parse out version number from the output of "httpd -v"' unless $lines =~ m[Apache\/([0-9]+\.[0-9\.]+)];
$1
} |
|
218
|
0 |
0 |
0 |
$$self{'_static_modules'} ||= do {
die 'dying due to previous error' unless my $lines = $self->_read_cmd($self->httpd, '-l');
my @mods;
foreach my $line (split(/\n/, $lines, 0)) {
if ($line =~ /^\s+mod_(.*)\.c/) {
push @mods, $1;
} ;
} ;
\@mods
} |
|
252
|
0 |
0 |
0 |
$$self{'_dynamic_modules'} ||= do {
my %mods;
if (my $dir = $self->get_dso_path) {
foreach my $n (glob "$dir/*.so") {
$mods{$2} = $1 if $n =~ m[/((?:mod_|lib)([^/]+?)\.so)$];
} ;
} ;
\%mods
} |