From 9f653e629ca6027b577e07eea2f64876da8da587 Mon Sep 17 00:00:00 2001 From: Jacob Pipkin Date: Mon, 5 Nov 2012 04:09:32 -0600 Subject: get rid of prototype for ask_user_group, all tests pass --- sboupgrade | 6 +++--- sboupgradex | 4 ++-- 2 files changed, 5 insertions(+), 5 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; diff --git a/sboupgradex b/sboupgradex index 83128e1..c20774b 100644 --- a/sboupgradex +++ b/sboupgradex @@ -107,7 +107,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; @@ -165,7 +165,7 @@ sub user_prompt ($$) { # 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 = 0; -- cgit v1.2.3