summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-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;