summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-01-25 18:29:46 +0000
committerThierry Vignaud <tv@mageia.org>2012-01-25 18:29:46 +0000
commit6bc67a25a56bf577d97e5d6bb45dc93cca49df5e (patch)
treeb03576c9bda2886e0658f91f9ef95d4b139a610a /perl-install
parent82f8c77cddc5f2de64996ebbb64d4a3dd7a33d1f (diff)
downloaddrakx-6bc67a25a56bf577d97e5d6bb45dc93cca49df5e.tar
drakx-6bc67a25a56bf577d97e5d6bb45dc93cca49df5e.tar.gz
drakx-6bc67a25a56bf577d97e5d6bb45dc93cca49df5e.tar.bz2
drakx-6bc67a25a56bf577d97e5d6bb45dc93cca49df5e.tar.xz
drakx-6bc67a25a56bf577d97e5d6bb45dc93cca49df5e.zip
(dmi_probe) use state keyword
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 ad875b352..bc0584bd0 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -964,8 +964,8 @@ sub pcmcia_probe() {
} all($dev_dir);
}
-my $dmi_probe;
sub dmi_probe() {
+ state $dmi_probe;
if (arch() !~ /86/) {
return [];
}