21 |
|
|
22 |
# open log and redirect die to it... |
# open log and redirect die to it... |
23 |
open(LOG,">> $log") || warn "open log $log: $!"; |
open(LOG,">> $log") || warn "open log $log: $!"; |
24 |
local $SIG{__DIE__} = sub { print scalar localtime LOG $_[0] ; die $_[0] }; |
local $SIG{__DIE__} = sub { print LOG scalar localtime,$_[0] ; die $_[0] }; |
25 |
|
|
26 |
# directory in which files will be left |
# directory in which files will be left |
27 |
my $outdir = $config->{outdir} || die "config: on <outdir> defined"; |
my $outdir = $config->{outdir} || die "config: on <outdir> defined"; |