summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-30 01:58:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-30 01:58:22 +0000
commitff4c03f696dfa6cab4acdb21c9dc86d7cdd8233e (patch)
treef7df3ad307f4f79199eadd915ab03eb680afff03
parent1086994580c2b4d3422a474582cffaa271a06df8 (diff)
downloaddrakx-ff4c03f696dfa6cab4acdb21c9dc86d7cdd8233e.tar
drakx-ff4c03f696dfa6cab4acdb21c9dc86d7cdd8233e.tar.gz
drakx-ff4c03f696dfa6cab4acdb21c9dc86d7cdd8233e.tar.bz2
drakx-ff4c03f696dfa6cab4acdb21c9dc86d7cdd8233e.tar.xz
drakx-ff4c03f696dfa6cab4acdb21c9dc86d7cdd8233e.zip
perl_checker small fixes
-rw-r--r--perl-install/interactive/newt.pm4
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;