[2798] (dmi_probe) use state keyword

[root-odJJhXpcy38dnm+]

Revision: 2798
Author: tv
Date: 2012-01-25 19:29:46 +0100 (Wed, 25 Jan 2012)
Log Message:
-----------
(dmi_probe) use state keyword

Modified Paths:
--------------
drakx/trunk/perl-install/detect_devices.pm

Modified: drakx/trunk/perl-install/detect_devices.pm
===================================================================
--- drakx/trunk/perl-install/detect_devices.pm 2012-01-25 18:29:43 UTC (rev 2797)
+++ drakx/trunk/perl-install/detect_devices.pm 2012-01-25 18:29:46 UTC (rev 2798)
@@ -964,8 +964,8 @@
} all($dev_dir);
}

-my $dmi_probe;
sub dmi_probe() {
+ state $dmi_probe;
if (arch() !~ /86/) {
return [];
}