diff options
author | Florian Pritz <bluewind@xinu.at> | 2017-05-30 11:33:59 +0200 |
---|---|---|
committer | Florian Pritz <bluewind@xinu.at> | 2017-05-30 11:33:59 +0200 |
commit | 10f9167adde11f446a59b22b0b884138a61393df (patch) | |
tree | 900290cc370aaf797431b6b1c242b21e006f3505 /script | |
parent | 0da74ef431b39b4280150e9e2b6dea8632821973 (diff) | |
download | App-BorgRestore-10f9167adde11f446a59b22b0b884138a61393df.tar.gz App-BorgRestore-10f9167adde11f446a59b22b0b884138a61393df.tar.xz |
Fix --update-cache not working due to help output optimization
Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 'script')
-rwxr-xr-x | script/borg-restore.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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(''); |