diff options
| -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; |