summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-02-25 07:48:23 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-02-25 07:48:23 +0000
commit8632960c4b3fc93d0ce5da7b2091558a7edf508e (patch)
treea7c8170eb2c774885cab77a886d50855afec7199 /perl-install
parentfe0b5b018b1bd8d1be6beb84844ee80ee46de635 (diff)
downloaddrakx-8632960c4b3fc93d0ce5da7b2091558a7edf508e.tar
drakx-8632960c4b3fc93d0ce5da7b2091558a7edf508e.tar.gz
drakx-8632960c4b3fc93d0ce5da7b2091558a7edf508e.tar.bz2
drakx-8632960c4b3fc93d0ce5da7b2091558a7edf508e.tar.xz
drakx-8632960c4b3fc93d0ce5da7b2091558a7edf508e.zip
only list physically present floppies
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakfloppy3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index cc2630df0..84dbba658 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -31,6 +31,7 @@ use standalone; #- warning, standalone must be loaded very first, for 'expla
use common;
use my_gtk qw(:helpers);
use ugtk qw(:helpers);
+use detect_devices;
#- languages that can't be displayed with gtk1, so we unset translations
#- for them until this tool is ported to gtk2
@@ -74,7 +75,7 @@ my $dev_hbox = new Gtk::HBox(1, 0);
my $device_combo = new Gtk::Combo();
my $device_button = new Gtk::Button(N("default"));
-$device_combo->set_popdown_strings("/dev/fd0", "/dev/fd1");
+$device_combo->set_popdown_strings(map { "/dev/" . $_->{device} } detect_devices::floppies());
$device_button->signal_connect(clicked => sub { $device_combo->entry->set_text("/dev/fd0") });
$dev_hbox->pack_start(new Gtk::Label(N("device")), 0, 0, 0);