diff options
Diffstat (limited to 'script')
-rwxr-xr-x | script/borg-restore.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/script/borg-restore.pl b/script/borg-restore.pl index 923732b..5ee080f 100755 --- a/script/borg-restore.pl +++ b/script/borg-restore.pl @@ -196,6 +196,8 @@ 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); + if ($opts{debug}) { my $logger = Log::Log4perl->get_logger(''); $logger->level($DEBUG); @@ -210,8 +212,6 @@ sub main { return 0; } - pod2usage(-verbose => 0) if (@ARGV== 0); - my @paths = @ARGV; my $path; |