summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-02-19 13:04:10 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-02-19 13:04:10 +0000
commitfa263494a4fd5dff094520889ceeb2912ac7a33b (patch)
tree08ee24920fbad9faf5dd79498fa213bd1a1b21d5 /perl-install
parentb368d96a54e8d1e4f8f37a5893385fe23bdafe13 (diff)
downloaddrakx-backup-do-not-use-fa263494a4fd5dff094520889ceeb2912ac7a33b.tar
drakx-backup-do-not-use-fa263494a4fd5dff094520889ceeb2912ac7a33b.tar.gz
drakx-backup-do-not-use-fa263494a4fd5dff094520889ceeb2912ac7a33b.tar.bz2
drakx-backup-do-not-use-fa263494a4fd5dff094520889ceeb2912ac7a33b.tar.xz
drakx-backup-do-not-use-fa263494a4fd5dff094520889ceeb2912ac7a33b.zip
fix titi sucks (Advanced and Help were broken)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 56fc5b333..5d5808465 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -514,7 +514,7 @@ sub create_okcancel {
sub { log::l("default cancel_clicked"); undef $w->{retval}; Gtk2->main_quit });
}
$w->{wizcancel} = gtksignal_connect(Gtk2::Button->new(N("Cancel")), clicked => sub { die 'wizcancel' }) if $::isWizard && !$::isInstall;
- my $f = sub { $w->{buttons}{$_->[0]} = gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => $_->[3]) };
+ my $f = sub { $w->{buttons}{$_[0][0]} = gtksignal_connect(Gtk2::Button->new($_[0][0]), clicked => $_[0][1]) };
my @left = ((map { $f->($_) } grep { $_->[2] && !$_->[3] } @other),
map { $f->($_) } grep { !$_->[2] && !$_->[3] } @other);
my @right = ((map { $f->($_) } grep { $_->[2] && $_->[3] } @other),