summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-05-11 12:31:46 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-05-11 12:31:46 +0000
commit3e4ad5e1b687f262a1d7cc39a0b905a595ac7f95 (patch)
treeafebab60e5720c4518118f663d0b54cf357a19ef /perl-install/interactive
parent0dbcea82bd862926e42e46e3ac2b718ead1205d9 (diff)
downloaddrakx-backup-do-not-use-3e4ad5e1b687f262a1d7cc39a0b905a595ac7f95.tar
drakx-backup-do-not-use-3e4ad5e1b687f262a1d7cc39a0b905a595ac7f95.tar.gz
drakx-backup-do-not-use-3e4ad5e1b687f262a1d7cc39a0b905a595ac7f95.tar.bz2
drakx-backup-do-not-use-3e4ad5e1b687f262a1d7cc39a0b905a595ac7f95.tar.xz
drakx-backup-do-not-use-3e4ad5e1b687f262a1d7cc39a0b905a595ac7f95.zip
perl_checker compliance
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/newt.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm
index b08b9b0b2..80197c779 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -218,7 +218,7 @@ sub ask_fromW_real {
};
} elsif ($e->{type} =~ /list/) {
$size = @{$e->{list}};
- my ($prefered_size) = @l == 1 && $height > 30 ? 10 : 5;
+ my $prefered_size = @l == 1 && $height > 30 ? 10 : 5;
my $scroll;
if ($size > $prefered_size && !$o->{no_individual_scroll}) {
$has_scroll = $scroll = 1;