diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/interactive/stdio.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/interactive/stdio.pm b/perl-install/interactive/stdio.pm index d8971c795..ba3088876 100644 --- a/perl-install/interactive/stdio.pm +++ b/perl-install/interactive/stdio.pm @@ -75,7 +75,7 @@ ask_fromW_begin: } } elsif ($e->{type} =~ /list/) { $e->{text} || $e->{label} and print "=> $e->{label} $e->{text}\n"; - my $n = 0; my $size = 0; my $def_n = 0; + my $n = 0; my $size = 0; foreach (@{$e->{list}}) { $n++; my $t = "$n: " . may_apply($e->{format}, $_) . "\t"; @@ -85,7 +85,6 @@ ask_fromW_begin: } print $t; $size += length($t); - ${$e->{val}} eq $_ and $def_n = $n; } print "\n"; my $i = good_choice(may_apply($e->{format}, ${$e->{val}}), $n); |