diff options
| -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) { |