From ff4c03f696dfa6cab4acdb21c9dc86d7cdd8233e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 30 Jan 2003 01:58:22 +0000
Subject: perl_checker small fixes

---
 perl-install/interactive/newt.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/interactive')

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;
-- 
cgit v1.2.1