summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2007-09-25 16:50:10 +0000
committerOlivier Blin <oblin@mandriva.com>2007-09-25 16:50:10 +0000
commitccde10e5cec1c149186493b618e7edd0aa309fb2 (patch)
tree9f76d825ea2145ee7f32ff21d9cbb3fccfaffd4b /perl-install
parent28a2e15fac417ad9632dc2fcfdeacc097d19019d (diff)
downloaddrakx-ccde10e5cec1c149186493b618e7edd0aa309fb2.tar
drakx-ccde10e5cec1c149186493b618e7edd0aa309fb2.tar.gz
drakx-ccde10e5cec1c149186493b618e7edd0aa309fb2.tar.bz2
drakx-ccde10e5cec1c149186493b618e7edd0aa309fb2.tar.xz
drakx-ccde10e5cec1c149186493b618e7edd0aa309fb2.zip
fix typo in hash slice
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm2
1 files changed, 1 insertions, 1 deletions
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;