diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-08-17 00:54:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-08-17 00:54:01 +0000 |
| commit | 1ffe557d931c751aaa34a13fd322109c8779f308 (patch) | |
| tree | 8fff14805dae24c54307527a6afd59e98eb8812f /perl-install | |
| parent | 11b0b944ddde76b4982fa2f9e2118dcee5035f80 (diff) | |
| download | drakx-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.pm | 2 |
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) { |