From d48836d3f1a040cca4d8abb003cf60acc9c0a08f Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Mon, 10 Apr 2017 22:47:09 +0200 Subject: Use Function::Parameters for script Signed-off-by: Florian Pritz --- script/borg-restore.pl | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'script') diff --git a/script/borg-restore.pl b/script/borg-restore.pl index ded825e..dff013f 100755 --- a/script/borg-restore.pl +++ b/script/borg-restore.pl @@ -108,6 +108,7 @@ use App::BorgRestore::Settings; use autodie; use Cwd qw(abs_path); use File::Basename; +use Function::Parameters; use Getopt::Long; use Log::Any qw($log); use Log::Any::Adapter; @@ -120,9 +121,7 @@ use Pod::Usage; my $app; -sub user_select_archive { - my $archives = shift; - +fun user_select_archive ($archives) { my $selected_archive; if (!@$archives) { -- cgit v1.2.3-24-g4f1b