summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-12-21 17:46:26 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-12-21 17:46:26 +0000
commitebbec40725eb566c91ca183f7677cc6526215a61 (patch)
treeecafc2f82ddc4bd029e1e0136ac9e4588c84aa90 /perl-install
parent7c3cf8706543cd8f1b7582e41c336a1235936ce8 (diff)
downloaddrakx-ebbec40725eb566c91ca183f7677cc6526215a61.tar
drakx-ebbec40725eb566c91ca183f7677cc6526215a61.tar.gz
drakx-ebbec40725eb566c91ca183f7677cc6526215a61.tar.bz2
drakx-ebbec40725eb566c91ca183f7677cc6526215a61.tar.xz
drakx-ebbec40725eb566c91ca183f7677cc6526215a61.zip
let a step name be a callback in order to be able to generate dynamic
messages (in the past gettext was called at step time, but now it's called at wizard data structure compile time)
Diffstat (limited to 'perl-install')
-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;