46 |
sub restoreLogMode($) { |
sub restoreLogMode($) { |
47 |
my $self = shift; |
my $self = shift; |
48 |
return 0 unless defined $self; |
return 0 unless defined $self; |
49 |
$self->{"preserve_warnings"} and $self->{"preserve_errors"} or |
(defined $self->{"preserve_warnings"} and defined $self->{"preserve_errors"}) |
50 |
die "Internal error: restoreLogMode called without previous save\n"; |
or die "Internal error: restoreLogMode called without previous save\n"; |
51 |
$::log->setwarnings($self->{"preserve_warnings"}); |
$::log->setwarnings($self->{"preserve_warnings"}); |
52 |
$::log->seterrors($self->{"preserve_errors"}); |
$::log->seterrors($self->{"preserve_errors"}); |
53 |
return 1; |
return 1; |