diff options
Diffstat (limited to 'perl-install/interactive/http.pm')
| -rw-r--r-- | perl-install/interactive/http.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive/http.pm b/perl-install/interactive/http.pm index 42e116380..cc48ee19a 100644 --- a/perl-install/interactive/http.pm +++ b/perl-install/interactive/http.pm @@ -68,7 +68,7 @@ sub ask_fromW { print "<table>\n"; - map_index { + each_index { my $e = $_; print "<tr><td>$e->{label}</td><td>\n"; @@ -120,7 +120,7 @@ sub ask_fromW { print $q->h1(_("Error")), $q->p("Sorry, you can't go back"); goto redisplay; } - map_index { + each_index { my $e = $_; my $v = $q->param("w$::i"); if ($e->{type} eq 'bool') { |