From 10f9167adde11f446a59b22b0b884138a61393df Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Tue, 30 May 2017 11:33:59 +0200 Subject: Fix --update-cache not working due to help output optimization 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 5ee080f..7bdcac6 100755 --- a/script/borg-restore.pl +++ b/script/borg-restore.pl @@ -196,7 +196,7 @@ sub main { GetOptions(\%opts, "help|h", "debug", "update-cache|u", "destination|d=s", "time|t=s", "adhoc") or pod2usage(2); pod2usage(0) if $opts{help}; - pod2usage(-verbose => 0) if (@ARGV== 0); + pod2usage(-verbose => 0) if (@ARGV== 0 and !$opts{"update-cache"}); if ($opts{debug}) { my $logger = Log::Log4perl->get_logger(''); -- cgit v1.2.3-24-g4f1b