aboutsummaryrefslogtreecommitdiff
path: root/lib/App/Acmeman/Apache/Layout.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/App/Acmeman/Apache/Layout.pm')
-rw-r--r--lib/App/Acmeman/Apache/Layout.pm19
1 files changed, 12 insertions, 7 deletions
diff --git a/lib/App/Acmeman/Apache/Layout.pm b/lib/App/Acmeman/Apache/Layout.pm
index 39e40d5..7b9ec9d 100644
--- a/lib/App/Acmeman/Apache/Layout.pm
+++ b/lib/App/Acmeman/Apache/Layout.pm
@@ -30,11 +30,12 @@ sub modules {
eval {
no strict 'refs';
if (scalar %{ $modname.'::' }) {
- die "INCLUDED $modname";
- };
- require $_;
- my $prio = ${$modname.'::PRIORITY'} // 0;
- [ $prio, $modname ]
+ ()
+ } else {
+ require $_;
+ my $prio = ${$modname.'::PRIORITY'} // 0;
+ [ $prio, $modname ]
+ }
};
}
map { glob File::Spec->catfile($_, '*.pm') }
@@ -49,7 +50,8 @@ sub new {
my $class = shift;
if (@_ == 0) {
- # Autodetect
+ # Autodetect
+ debug(3, "detecting Apache configuration layout");
my $ap = new Apache::Defaults(server => $class->_find_httpd,
on_error => 'return');
if ($ap->status) {
@@ -57,6 +59,7 @@ sub new {
}
foreach my $mod ($class->modules) {
+ debug(3, "trying layout module $mod");
my $obj;
eval {
$obj = $mod->new($ap);
@@ -64,7 +67,9 @@ sub new {
if ($obj) {
return $obj;
}
-# print "A $mod: $@\n";
+ if ($@) {
+ debug(3, "layout module failed: $@");
+ }
}
if ($ap) {

Return to:

Send suggestions and report system problems to the System administrator.