diff options
author | Florian Pritz <bluewind@xinu.at> | 2017-04-10 22:47:09 +0200 |
---|---|---|
committer | Florian Pritz <bluewind@xinu.at> | 2017-04-10 22:47:09 +0200 |
commit | d48836d3f1a040cca4d8abb003cf60acc9c0a08f (patch) | |
tree | 59e9ae2a3b5dd32765c236c6f29b9112c7a6e26f | |
parent | bbb2f43df4ef6dcc3c8708aadd1ec9c6a7af6a87 (diff) | |
download | App-BorgRestore-d48836d3f1a040cca4d8abb003cf60acc9c0a08f.tar.gz App-BorgRestore-d48836d3f1a040cca4d8abb003cf60acc9c0a08f.tar.xz |
Use Function::Parameters for script
Signed-off-by: Florian Pritz <bluewind@xinu.at>
-rwxr-xr-x | script/borg-restore.pl | 5 |
1 files changed, 2 insertions, 3 deletions
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) { |