summaryrefslogtreecommitdiffstats
path: root/drakwizard.pl
diff options
context:
space:
mode:
Diffstat (limited to 'drakwizard.pl')
-rwxr-xr-xdrakwizard.pl3
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;