my $class = shift;
my $self = $class->$orig;
- $self->levels( scalar(@_) ? @_ : (qw/info warn error fatal/) );
+ $self->levels( scalar(@_) ? @_ : keys %LEVELS );
+
return $self;
};
if ($self->can('_has_psgi_errors') and $self->_has_psgi_errors) {
$self->_psgi_errors->print(@_);
} else {
+ binmode STDERR, ":utf8";
print STDERR @_;
}
}