From 519b8796aa1827d8534c838e8842025418bb2a9d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
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