From 7b363ba5856f3254b84d26cef03a4980d760fa41 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 16 Apr 2003 14:14:43 +0000
Subject: comply to new each_index behaviour

---
 perl-install/ugtk2.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

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 {
-- 
cgit v1.2.1