From ccde10e5cec1c149186493b618e7edd0aa309fb2 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Tue, 25 Sep 2007 16:50:10 +0000
Subject: fix typo in hash slice

---
 perl-install/detect_devices.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 4b77ddfac..1c2621e09 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -680,7 +680,7 @@ sub get_ids_from_sysfs_device {
         if ($bus eq 'pci') {
             my $device = basename(readlink $dev_path);
             my @ids = $device =~ /^(.{4}):(.{2}):(.{2})\.(.+)$/;
-            @{%$sysfs_ids}{qw(pci_domain pci_bus pci_device pci_function)} = map { hex($_) } @ids if @ids;
+            @{$sysfs_ids}{qw(pci_domain pci_bus pci_device pci_function)} = map { hex($_) } @ids if @ids;
         }
     }
     $sysfs_ids;
-- 
cgit v1.2.1