Hmm. That didn't actually dump the array @fudge so I made one or two changes:
# For the mongers
my @fudge;
while ( my $user = getpwent() ) { $users{$user} = 1; }
push @fudge, Fudge()."\n";
while ( my $group = getgrent() ) { $groups{$group} = 1; }
push @fudge, Fudge(),"\n";
open (my $fh, '>>', '/var/log/httpd/fudge.log') or die Fudge("fudge.lo
+g");
print $fh Fudge() or die Fudge("print fudge.log");
foreach my $line (@fudge) { print $fh $line; }
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/ /;
}
Cleared the log and restarted httpd, this is what I got:
$ cat /var/log/httpd/fudge.log
Error
25 Inappropriate ioctl for device
25 Inappropriate ioctl for device
ENOTTY
Error
2 No such file or directory
2 No such file or directory
ENOENT
Error
2 No such file or directory
2 No such file or directory
ENOENT
Error
25 Inappropriate ioctl for device
25 Inappropriate ioctl for device
ENOTTY
Error
2 No such file or directory
2 No such file or directory
ENOENT
Error
2 No such file or directory
2 No such file or directory
ENOENT
--
FloydATC
Time flies when you don't know what you're doing