From 58ee33a78fb8f24136861f62c2c8cd3060fa2f42 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 23 Sep 2009 20:29:29 +0000
Subject: add missing bit that got lost between euphor and mdv (fixing running
 wit strict pragma)

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

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

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;
-- 
cgit v1.2.1