From 477f9e81cb3aa78829210942e8185e8146c6cd5e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 8 Nov 1999 12:50:22 +0000
Subject: no_comment

---
 perl-install/interactive_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/interactive_gtk.pm')

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index ced261891..fb4d5488c 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -54,7 +54,7 @@ sub ask_many_from_list_refW($$$$$) {
     my ($o, $title, $messages, $list, $val) = @_;
     my $w = my_gtk->new('', %$o);
     my $box = gtkpack(new Gtk::VBox(0,0),
-	map {
+	map_index {
 	    my $i = $::i;
 	    my $o = Gtk::CheckButton->new($_);
 	    $o->set_active(${$val->[$i]});
-- 
cgit v1.2.1