diff options
| author | Jacob Pipkin <j@dawnrazor.net> | 2012-11-05 04:13:29 -0600 | 
|---|---|---|
| committer | Jacob Pipkin <j@dawnrazor.net> | 2012-11-05 04:13:29 -0600 | 
| commit | ee3be93c8b42928a5d6edb2b763c209eeda4d643 (patch) | |
| tree | 15144940886cde232d29c9a2ef45e1f07bc8b63b | |
| parent | 9f653e629ca6027b577e07eea2f64876da8da587 (diff) | |
| download | sbotools2-ee3be93c8b42928a5d6edb2b763c209eeda4d643.tar.xz | |
get rid of prototypes for (readme|user)_prompt, all tests pass (tests are incomplete here)
| -rwxr-xr-x | sboupgrade | 4 | ||||
| -rw-r--r-- | sboupgradex | 2 | 
2 files changed, 3 insertions, 3 deletions
@@ -236,7 +236,7 @@ sub ask_opts ($) {  }  # prompt for the readme -sub readme_prompt ($$) { +sub readme_prompt {  	exists $_[0] or script_error 'readme_prompt requires an argument.';  	my ($sbo, $location) = @_;  	my $fh = open_read (get_readme_path $sbo); @@ -267,7 +267,7 @@ sub process_sbos ($) {  	my %failures;  	FIRST: for my $sbo (@$todo) {  		my $opts = 0; -		$opts = readme_prompt $sbo, $locations{$sbo} unless $non_int; +		$opts = readme_prompt ($sbo, $locations{$sbo}) unless $non_int;  		# switch compat32 on if upgrading a -compat32  		$compat32 = 1 if $sbo =~ /-compat32$/;  		my ($version, $pkg, $src); diff --git a/sboupgradex b/sboupgradex index c20774b..9612771 100644 --- a/sboupgradex +++ b/sboupgradex @@ -156,7 +156,7 @@ sub ask_opts ($) {      return;  } -sub user_prompt ($$) { +sub user_prompt {          exists $_[1] or script_error 'user_prompt requires two arguments.';          my ($sbo, $location) = @_;          my $fh = open_read ($location .'/README');  | 
