diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-12-09 18:59:13 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-12-09 18:59:13 +0000 |
| commit | 4ee448a20d1a593b03216c98cb2230ae973a2ff1 (patch) | |
| tree | f21ca7dae95cb2009ff26b481850dad84409b5b0 /perl-install/harddrake | |
| parent | 3ff61a58c4334cd7e97003b225e18e99e344af51 (diff) | |
| download | drakx-4ee448a20d1a593b03216c98cb2230ae973a2ff1.tar drakx-4ee448a20d1a593b03216c98cb2230ae973a2ff1.tar.gz drakx-4ee448a20d1a593b03216c98cb2230ae973a2ff1.tar.bz2 drakx-4ee448a20d1a593b03216c98cb2230ae973a2ff1.tar.xz drakx-4ee448a20d1a593b03216c98cb2230ae973a2ff1.zip | |
(pciusb_id) split out fields list (needed for next commits)
Diffstat (limited to 'perl-install/harddrake')
| -rw-r--r-- | perl-install/harddrake/data.pm | 3 |
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); } |