diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-08-17 00:39:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-08-17 00:39:01 +0000 |
| commit | 11b0b944ddde76b4982fa2f9e2118dcee5035f80 (patch) | |
| tree | a873f848dcf1eda96b89a0319f8923e10bbc5b4a /perl-install/modules.pm | |
| parent | d77799bb5ce63ecac4de72e1b27f56d7d22fd048 (diff) | |
| download | drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.tar drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.tar.gz drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.tar.bz2 drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.tar.xz drakx-11b0b944ddde76b4982fa2f9e2118dcee5035f80.zip | |
no_comment
Diffstat (limited to 'perl-install/modules.pm')
| -rw-r--r-- | perl-install/modules.pm | 5 |
1 files changed, 2 insertions, 3 deletions
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; |