binmode( STDOUT, $mode );
}
$SIG{__DIE__} = sub {
my $msg = shift;
my $logger = C4::SIP::Logger::get_logger();
$logger->error($msg) if $logger;
warn $msg; # die doesn't output the message, warn before dying
die $msg;
};
1;
-