summaryrefslogtreecommitdiffstats
path: root/script
diff options
context:
space:
mode:
Diffstat (limited to 'script')
-rwxr-xr-xscript/borg-restore.pl4
1 files changed, 3 insertions, 1 deletions
diff --git a/script/borg-restore.pl b/script/borg-restore.pl
index 5a7d8f4..4d6cc0d 100755
--- a/script/borg-restore.pl
+++ b/script/borg-restore.pl
@@ -210,6 +210,8 @@ sub main {
log4perl.appender.screenlog.stderr = 1
log4perl.appender.screenlog.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.screenlog.layout.ConversionPattern = %p %m%n
+
+ log4perl.PatternLayout.cspec.U = sub {my \@c = caller(\$_[4]); \$c[0] =~ s/::/./g; return sprintf('%s:%s', \$c[0], \$c[2]);}
";
Log::Log4perl::init( \$conf );
Log::Any::Adapter->set('Log4perl');
@@ -242,7 +244,7 @@ sub main {
my $logger = Log::Log4perl->get_logger('');
$logger->level($DEBUG);
Log::Log4perl->appenders()->{"screenlog"}->layout(
- Log::Log4perl::Layout::PatternLayout->new("%d %8r [%30c:%-4L] %p %m%n"));
+ Log::Log4perl::Layout::PatternLayout->new("%d %8r [%-30U] %p %m%n"));
}
$app = App::BorgRestore->new();