summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-08-17 00:54:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-08-17 00:54:01 +0000
commit1ffe557d931c751aaa34a13fd322109c8779f308 (patch)
tree8fff14805dae24c54307527a6afd59e98eb8812f /perl-install
parent11b0b944ddde76b4982fa2f9e2118dcee5035f80 (diff)
downloaddrakx-1ffe557d931c751aaa34a13fd322109c8779f308.tar
drakx-1ffe557d931c751aaa34a13fd322109c8779f308.tar.gz
drakx-1ffe557d931c751aaa34a13fd322109c8779f308.tar.bz2
drakx-1ffe557d931c751aaa34a13fd322109c8779f308.tar.xz
drakx-1ffe557d931c751aaa34a13fd322109c8779f308.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/modules.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 366fbabff..9fc52570e 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -311,7 +311,7 @@ my @drivers_fields = qw(text type);
%drivers = ();
foreach (@drivers_by_category) {
- my ($text, $l) = @$_;
+ my ($type, $l) = @$_;
foreach (keys %$l) { $drivers{$_} = [ $l->{$_}, $type ]; }
}
while (my ($k, $v) = each %drivers) {