diff options
Diffstat (limited to 'drakwizard.pl')
| -rwxr-xr-x | drakwizard.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/drakwizard.pl b/drakwizard.pl index 46854b0c..4da1cd41 100755 --- a/drakwizard.pl +++ b/drakwizard.pl @@ -91,6 +91,7 @@ sub wizard { exit() if ! $::testing } } + $::in = $in; # so that steps "complete" callbacks can call interactive->ask_warn() :-( my $next = 'welcome'; my @steps; @@ -119,7 +120,7 @@ sub wizard { push @$data2, $d } } - my $a = $in->ask_from($o->{name}, $page->{name}, $data2); + my $a = $in->ask_from($o->{name}, $page->{name}, $data2, if_($page->{complete}, complete => $page->{complete})); if ($a) { push @steps, $next if !$page->{ignore} && $steps[-1] ne $next; $next = defined $page->{post} ? $page->{post}() : 0; |