From 806864e5e41c34dcdcafabbcd491313cc6365f32 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 21 Jul 2004 00:06:10 +0000 Subject: perl_checker fixes --- perl-install/standalone/drakautoinst | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst index f54b47323..3216305c3 100755 --- a/perl-install/standalone/drakautoinst +++ b/perl-install/standalone/drakautoinst @@ -352,10 +352,10 @@ sub control_buttons { my @widget_list = @$widget_list2; my $i = $$j; ref($ref_local_k) =~ /HASH/ or return(); - my (%local_k) = %$ref_local_k; - my ($button_add, $button_remove); + my %local_k = %$ref_local_k; + my ($button_remove); 0, gtkadd(gtkset_border_width(gtkset_layout(new Gtk2::HButtonBox, 'spread'), 5), - gtksignal_connect($button_add = new Gtk2::Button(N("Add an item")), clicked => sub { + gtksignal_connect(new Gtk2::Button(N("Add an item")), clicked => sub { $local_k{$_} = undef foreach keys %local_k; $i++; $local_gui->($vb, \@widget_list, \%local_k, $i) or $i--, return; -- cgit v1.2.1