diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-01-30 01:58:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-01-30 01:58:22 +0000 |
| commit | ff4c03f696dfa6cab4acdb21c9dc86d7cdd8233e (patch) | |
| tree | f7df3ad307f4f79199eadd915ab03eb680afff03 /perl-install | |
| parent | 1086994580c2b4d3422a474582cffaa271a06df8 (diff) | |
| download | drakx-ff4c03f696dfa6cab4acdb21c9dc86d7cdd8233e.tar drakx-ff4c03f696dfa6cab4acdb21c9dc86d7cdd8233e.tar.gz drakx-ff4c03f696dfa6cab4acdb21c9dc86d7cdd8233e.tar.bz2 drakx-ff4c03f696dfa6cab4acdb21c9dc86d7cdd8233e.tar.xz drakx-ff4c03f696dfa6cab4acdb21c9dc86d7cdd8233e.zip | |
perl_checker small fixes
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/interactive/newt.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm index 68809f1e3..759c69969 100644 --- a/perl-install/interactive/newt.pm +++ b/perl-install/interactive/newt.pm @@ -152,7 +152,6 @@ sub ask_fromW_real { $w = Newt::Component::Tree($size, $scroll); - my @lz; my $wi; my $add_item = sub { my ($text, $data, $parents) = @_; @@ -178,7 +177,8 @@ sub ask_fromW_real { $w->TreeSetWidth($wi + 1); $get = sub { $w->TreeGetCurrent }; $set = sub { - #$w->TreeSetCurrent($_[0]); +# $w->TreeSetCurrent($_[0]); + 1; }; } elsif ($e->{type} =~ /list/) { my ($h) = @$l == 1 && $height > 30 ? 10 : 5; |