diff options
| -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'); |