diff options
Diffstat (limited to 'sboupgrade')
| -rwxr-xr-x | sboupgrade | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -145,7 +145,7 @@ sub clean_reqs ($) { } # ask to install any requirements found -sub ask_requires (%) { +sub ask_requires { my %args = ( REQUIRES => '', README => '', @@ -187,7 +187,7 @@ sub get_user_group ($) { } # offer to run any user/group add commands -sub ask_user_group ($$) { +sub ask_user_group { exists $_[1] or script_error 'ask_user_group requires two arguments'; my ($cmds, $readme) = @_; say "\n". $readme; @@ -248,7 +248,7 @@ sub readme_prompt ($$) { ref $requires eq 'ARRAY'; # check for user/group add commands, offer to run any found my $user_group = get_user_group $readme; - ask_user_group $user_group, $readme if $$user_group[0]; + ask_user_group ($user_group, $readme) if $$user_group[0]; # check for options mentioned in the README my $opts; $opts = ask_opts $readme if get_opts $readme; |