summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/wizards.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/wizards.pm b/perl-install/wizards.pm
index a9dd3b19c..9fefb5011 100644
--- a/perl-install/wizards.pm
+++ b/perl-install/wizards.pm
@@ -121,7 +121,8 @@ sub process {
push @$data2, $d
}
}
- my $a = $in->ask_from($o->{name}, $page->{name}, $data2, complete => $page->{complete} || sub { 0 });
+ my $name = ref($page->{name}) ? $page->{name}->() : $page->{name};
+ my $a = $in->ask_from($o->{name}, $name, $data2, complete => $page->{complete} || sub { 0 });
if ($a) {
# step forward:
push @steps, $next if !$page->{ignore} && $steps[-1] ne $next;