From 0da74ef431b39b4280150e9e2b6dea8632821973 Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xinu.at>
Date: Sun, 28 May 2017 20:43:11 +0200
Subject: Output usage earlier when called without arguments

Signed-off-by: Florian Pritz <bluewind@xinu.at>
---
 script/borg-restore.pl | 4 ++--
 1 file 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;
-- 
cgit v1.2.3-24-g4f1b