aboutsummaryrefslogtreecommitdiff
path: root/sboupgrade
diff options
context:
space:
mode:
authorJacob Pipkin <j@dawnrazor.net>2012-11-05 04:09:32 -0600
committerJacob Pipkin <j@dawnrazor.net>2012-11-05 04:09:32 -0600
commit9f653e629ca6027b577e07eea2f64876da8da587 (patch)
tree23bf67f9592862754ac5a22a2484eb161c1608b3 /sboupgrade
parent333aeb20abc623bb3badae4b09ca8a78bfa2360e (diff)
downloadsbotools2-9f653e629ca6027b577e07eea2f64876da8da587.tar.xz
get rid of prototype for ask_user_group, all tests pass
Diffstat (limited to 'sboupgrade')
-rwxr-xr-xsboupgrade6
1 files changed, 3 insertions, 3 deletions
diff --git a/sboupgrade b/sboupgrade
index 87c9fce..7a5502d 100755
--- a/sboupgrade
+++ b/sboupgrade
@@ -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;