From 11b0b944ddde76b4982fa2f9e2118dcee5035f80 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 17 Aug 2000 00:39:01 +0000
Subject: no_comment

---
 perl-install/modules.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 24e4e1291..366fbabff 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -311,9 +311,8 @@ my @drivers_fields = qw(text type);
 %drivers = ();
 
 foreach (@drivers_by_category) {
-    my @l = @$_;
-    my $l = pop @l;
-    foreach (keys %$l) { $drivers{$_} = [ $l->{$_}, @l ]; }
+    my ($text, $l) = @$_;
+    foreach (keys %$l) { $drivers{$_} = [ $l->{$_}, $type ]; }
 }
 while (my ($k, $v) = each %drivers) {
     my %l; @l{@drivers_fields} = @$v;
-- 
cgit v1.2.1