summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-07-21 00:06:10 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-07-21 00:06:10 +0000
commit806864e5e41c34dcdcafabbcd491313cc6365f32 (patch)
tree2a8c7340dea59786fbd518207da7aabea3a89436 /perl-install
parentdd7100049c9e1efd8f3c4550326499ad4bbf9e42 (diff)
downloaddrakx-806864e5e41c34dcdcafabbcd491313cc6365f32.tar
drakx-806864e5e41c34dcdcafabbcd491313cc6365f32.tar.gz
drakx-806864e5e41c34dcdcafabbcd491313cc6365f32.tar.bz2
drakx-806864e5e41c34dcdcafabbcd491313cc6365f32.tar.xz
drakx-806864e5e41c34dcdcafabbcd491313cc6365f32.zip
perl_checker fixes
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakautoinst6
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;