diff options
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; |