diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-07-21 00:06:10 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-07-21 00:06:10 +0000 |
| commit | 806864e5e41c34dcdcafabbcd491313cc6365f32 (patch) | |
| tree | 2a8c7340dea59786fbd518207da7aabea3a89436 | |
| parent | dd7100049c9e1efd8f3c4550326499ad4bbf9e42 (diff) | |
| download | drakx-806864e5e41c34dcdcafabbcd491313cc6365f32.tar drakx-806864e5e41c34dcdcafabbcd491313cc6365f32.tar.gz drakx-806864e5e41c34dcdcafabbcd491313cc6365f32.tar.bz2 drakx-806864e5e41c34dcdcafabbcd491313cc6365f32.tar.xz drakx-806864e5e41c34dcdcafabbcd491313cc6365f32.zip | |
perl_checker fixes
| -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; |