in reply to Re^4: [SOLVED] Configuring Apache VirtualHosts using mod_perl 2
in thread [SOLVED] Configuring Apache VirtualHosts using mod_perl 2
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/ /; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^6: [SOLVED] Configuring Apache VirtualHosts using mod_perl 2
by FloydATC (Deacon) on Dec 04, 2014 at 07:17 UTC | |
by Anonymous Monk on Dec 04, 2014 at 08:40 UTC | |
by FloydATC (Deacon) on Dec 04, 2014 at 09:30 UTC |