summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-01-06 15:53:07 +0000
committerThierry Vignaud <tv@mandriva.org>2009-01-06 15:53:07 +0000
commit519b8796aa1827d8534c838e8842025418bb2a9d (patch)
treee30f7c4fd5cdcfe2e66bf94cb4e541ed34e8c006 /perl-install
parentb100305c15b7f8d99477ca9ef934263c4297c932 (diff)
downloaddrakx-backup-do-not-use-519b8796aa1827d8534c838e8842025418bb2a9d.tar
drakx-backup-do-not-use-519b8796aa1827d8534c838e8842025418bb2a9d.tar.gz
drakx-backup-do-not-use-519b8796aa1827d8534c838e8842025418bb2a9d.tar.bz2
drakx-backup-do-not-use-519b8796aa1827d8534c838e8842025418bb2a9d.tar.xz
drakx-backup-do-not-use-519b8796aa1827d8534c838e8842025418bb2a9d.zip
(pciusb_id) split out fields list (needed for next commits) [backported from trunk]
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/harddrake/data.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index 1c64e1dab..89d93fd27 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -555,7 +555,8 @@ sub pciusb_id {
pci_device => 'usb_pci_device',
vendor => 'usb_vendor',
);
- join(':', map { $dev->{$alt{$_}} || $dev->{$_} } qw(bus pci_bus pci_device vendor id subvendor subid description));
+ my @fields = qw(bus pci_bus pci_device vendor id subvendor subid description);
+ join(':', map { $dev->{$alt{$_}} || $dev->{$_} } @fields);
}