Parent Directory | Revision Log | Patch
revision 1.8 by dpavlin, Tue Feb 4 13:03:07 2003 UTC | revision 1.9 by dpavlin, Mon Mar 10 15:49:01 2003 UTC | |
---|---|---|
# | Line 29 my $log = $config->{log} || die "config: | Line 29 my $log = $config->{log} || die "config: |
29 | ||
30 | # open log and redirect die to it... | # open log and redirect die to it... |
31 | open(LOG,">> $log") || warn "open log $log: $!"; | open(LOG,">> $log") || warn "open log $log: $!"; |
32 | local $SIG{__DIE__} = sub { print LOG $_[0] ; die $_[0] }; | local $SIG{__DIE__} = sub { print scalar localtime LOG $_[0] ; die $_[0] }; |
33 | ||
34 | umask 022; # world readable | umask 022; # world readable |
35 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |