summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-09-23 20:29:29 +0000
committerThierry Vignaud <tv@mandriva.org>2009-09-23 20:29:29 +0000
commit58ee33a78fb8f24136861f62c2c8cd3060fa2f42 (patch)
tree968a3a751a534d8e6ec9e968b0795f4e833581ec /perl-install/detect_devices.pm
parent0f6ffa0dc8eda6c79b6fbc161efbfb1cc5abfe51 (diff)
downloaddrakx-58ee33a78fb8f24136861f62c2c8cd3060fa2f42.tar
drakx-58ee33a78fb8f24136861f62c2c8cd3060fa2f42.tar.gz
drakx-58ee33a78fb8f24136861f62c2c8cd3060fa2f42.tar.bz2
drakx-58ee33a78fb8f24136861f62c2c8cd3060fa2f42.tar.xz
drakx-58ee33a78fb8f24136861f62c2c8cd3060fa2f42.zip
add missing bit that got lost between euphor and mdv (fixing running
wit strict pragma)
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index c72282787..b9fe3ea5e 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -825,6 +825,7 @@ sub pci_probe__real() {
} c::pci_probe());
}
sub pci_probe() {
+ state $done;
if (!$done) {
@pci = pci_probe__real() if !@pci;
@pcie_bridges = grep { readlink("$_->{sysfs_device}/driver") =~ /pcieport/ } @pci;