diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-22 17:46:46 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-22 17:46:46 +0000 |
| commit | 0971172a317eb06f39c47b2b32811d811c439485 (patch) | |
| tree | 89cf0526f9f093da53d1a16156359283c3928763 /perl-install/interactive | |
| parent | b9392a82539d1547dc8e35db956bb39846b755f9 (diff) | |
| download | drakx-backup-do-not-use-0971172a317eb06f39c47b2b32811d811c439485.tar drakx-backup-do-not-use-0971172a317eb06f39c47b2b32811d811c439485.tar.gz drakx-backup-do-not-use-0971172a317eb06f39c47b2b32811d811c439485.tar.bz2 drakx-backup-do-not-use-0971172a317eb06f39c47b2b32811d811c439485.tar.xz drakx-backup-do-not-use-0971172a317eb06f39c47b2b32811d811c439485.zip | |
$def_n is unused
Diffstat (limited to 'perl-install/interactive')
| -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); |