summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 354dfeb7c..79f7f625d 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -13,6 +13,7 @@ use devices;
use run_program;
use modules;
use c;
+use feature 'state';
#-#####################################################################################
#- Globals
@@ -51,7 +52,9 @@ sub floppies {
my ($o_not_detect_legacy_floppies) = @_;
require modules;
my @fds;
- if (!$o_not_detect_legacy_floppies) {
+ state $legacy_already_detected;
+ if (!$o_not_detect_legacy_floppies && !$legacy_already_detected) {
+ $legacy_already_detected = 1;
eval { modules::load("floppy") if $::isInstall };
if (!is_xbox()) {
@fds = map {