From 6875a02e7475b8288c0044795c1b77adaf213ba9 Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xinu.at>
Date: Mon, 27 Feb 2017 14:50:47 +0100
Subject: Move debug() to main package

Signed-off-by: Florian Pritz <bluewind@xinu.at>
---
 script/borg-restore.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'script')

diff --git a/script/borg-restore.pl b/script/borg-restore.pl
index f586ed5..7ec23e1 100755
--- a/script/borg-restore.pl
+++ b/script/borg-restore.pl
@@ -155,6 +155,7 @@ See gpl-3.0.txt for the full license text.
 
 use v5.10;
 
+use App::BorgRestore;
 use App::BorgRestore::Borg;
 use App::BorgRestore::DB;
 use App::BorgRestore::Helper;
@@ -176,9 +177,10 @@ use Time::HiRes;
 
 my %opts;
 my %db;
+my $app;
 
 sub debug {
-	say STDERR @_ if $opts{debug};
+	$app->debug(@_);
 }
 
 sub find_archives {
@@ -541,6 +543,8 @@ sub main {
 	GetOptions(\%opts, "help|h", "debug", "update-cache|u", "destination|d=s", "time|t=s") or pod2usage(2);
 	pod2usage(0) if $opts{help};
 
+	$app = App::BorgRestore->new(\%opts);
+
 	if ($opts{"update-cache"}) {
 		update_cache();
 		return 0;
-- 
cgit v1.2.3-24-g4f1b