diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2009-09-23 20:29:29 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2009-09-23 20:29:29 +0000 |
| commit | 58ee33a78fb8f24136861f62c2c8cd3060fa2f42 (patch) | |
| tree | 968a3a751a534d8e6ec9e968b0795f4e833581ec /perl-install/detect_devices.pm | |
| parent | 0f6ffa0dc8eda6c79b6fbc161efbfb1cc5abfe51 (diff) | |
| download | drakx-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.pm | 1 |
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; |