diff options
| -rwxr-xr-x | perl-install/standalone/drakautoinst | 6 |
1 files changed, 3 insertions, 3 deletions
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; |