All I can tell from this is that the config is indeed executed twice (as mentioned in the OP) but the actual messages don't mean much to me.
Fudge() is only meaningful immediately after a system call, therefore
my @fudge; while ( my $user = getpwent() ) { $users{$user} = 1; } push @fudge, Fudge(); while ( my $group = getgrent() ) { $groups{$group} = 1; } push @fudge, Fudge(); open (my $fh, '>>', '/var/log/httpd/fudge.log') or die Fudge("fudge.lo +g"); print $fh Fudge() or die Fudge("print fudge.log"); close $fh or die Fudge("close fudge.log"; undef @fudge; sub Fudge { use Errno(); join qq/\n/, "Error @_", map { " $_" } int( $! ) . q/ / . $!, int( $^E ) . q/ / . $^E, grep( { $!{$_} } keys %! ), q/ /; }
In reply to Re^5: [SOLVED] Configuring Apache VirtualHosts using mod_perl 2
by Anonymous Monk
in thread [SOLVED] Configuring Apache VirtualHosts using mod_perl 2
by FloydATC
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |