summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-04-16 14:14:43 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-04-16 14:14:43 +0000
commit7b363ba5856f3254b84d26cef03a4980d760fa41 (patch)
treefef2037b2b27ee5be9ac647fb38be65cce432039 /perl-install
parent74234f5cc55e4d207258adf902e96f2ea0e4c3f3 (diff)
downloaddrakx-7b363ba5856f3254b84d26cef03a4980d760fa41.tar
drakx-7b363ba5856f3254b84d26cef03a4980d760fa41.tar.gz
drakx-7b363ba5856f3254b84d26cef03a4980d760fa41.tar.bz2
drakx-7b363ba5856f3254b84d26cef03a4980d760fa41.tar.xz
drakx-7b363ba5856f3254b84d26cef03a4980d760fa41.zip
comply to new each_index behaviour
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 4882cb95a..fb0c87458 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -440,9 +440,9 @@ sub create_packtable {
my ($options, @l) = @_;
my $w = Gtk2::Table->new(0, 0, $options->{homogeneous} || 0);
each_index {
- my ($i, $l) = ($_[0], $_);
+ my ($i, $l) = ($::i, $_);
each_index {
- my ($j) = @_;
+ my $j = $::i;
if ($_) {
ref $_ or $_ = Gtk2::Label->new($_);
$j != $#$l && !$options->{mcc} ?
@@ -991,7 +991,7 @@ sub _ask_file {
sub _ask_dir {
my ($o) = @_;
- my $f = _ask_file(@_);
+ my $f = &_ask_file;
$f->file_list->get_parent->hide;
$f->selection_entry->get_parent->hide;
$f->ok_button->signal_connect(clicked => sub {