summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-22 17:46:46 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-22 17:46:46 +0000
commit0971172a317eb06f39c47b2b32811d811c439485 (patch)
tree89cf0526f9f093da53d1a16156359283c3928763 /perl-install/interactive
parentb9392a82539d1547dc8e35db956bb39846b755f9 (diff)
downloaddrakx-0971172a317eb06f39c47b2b32811d811c439485.tar
drakx-0971172a317eb06f39c47b2b32811d811c439485.tar.gz
drakx-0971172a317eb06f39c47b2b32811d811c439485.tar.bz2
drakx-0971172a317eb06f39c47b2b32811d811c439485.tar.xz
drakx-0971172a317eb06f39c47b2b32811d811c439485.zip
$def_n is unused
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/stdio.pm3
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);