summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFlorian Pritz <bluewind@xinu.at>2017-04-10 22:47:09 +0200
committerFlorian Pritz <bluewind@xinu.at>2017-04-10 22:47:09 +0200
commitd48836d3f1a040cca4d8abb003cf60acc9c0a08f (patch)
tree59e9ae2a3b5dd32765c236c6f29b9112c7a6e26f
parentbbb2f43df4ef6dcc3c8708aadd1ec9c6a7af6a87 (diff)
downloadApp-BorgRestore-d48836d3f1a040cca4d8abb003cf60acc9c0a08f.tar.gz
App-BorgRestore-d48836d3f1a040cca4d8abb003cf60acc9c0a08f.tar.xz
Use Function::Parameters for script
Signed-off-by: Florian Pritz <bluewind@xinu.at>
-rwxr-xr-xscript/borg-restore.pl5
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) {