From 28688c3b7f872bd56939eb6da39ca038f9e4d3dd Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Sun, 12 Nov 2017 01:08:09 +0100 Subject: Prefix logging of uncaught exceptions Signed-off-by: Florian Pritz --- script/borg-restore.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/script/borg-restore.pl b/script/borg-restore.pl index c349df0..d6e97e5 100755 --- a/script/borg-restore.pl +++ b/script/borg-restore.pl @@ -198,7 +198,7 @@ sub logger_setup { return if($^S); local $Log::Log4perl::caller_depth = $Log::Log4perl::caller_depth + 1; - Log::Log4perl->get_logger()->fatal(@_); + Log::Log4perl->get_logger()->fatal("Uncaught exception: ".$_[0], @_[1..$#_]); exit(2); }; } -- cgit v1.2.3-24-g4f1b