From 519b8796aa1827d8534c838e8842025418bb2a9d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 6 Jan 2009 15:53:07 +0000 Subject: (pciusb_id) split out fields list (needed for next commits) [backported from trunk] --- perl-install/harddrake/data.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/harddrake/data.pm') 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); } -- cgit v1.2.1