diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-05-02 14:52:41 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-05-02 14:52:41 +0000 |
| commit | c367a7b536cbc28a666370a8935718980bdc5ee3 (patch) | |
| tree | 367cf2853e3fa81eee160437c102ca8c6b3b39dc /perl-install/standalone/drakboot | |
| parent | b6b6e19519b647762f5b1497387893bc8094f879 (diff) | |
| download | drakx-backup-do-not-use-c367a7b536cbc28a666370a8935718980bdc5ee3.tar drakx-backup-do-not-use-c367a7b536cbc28a666370a8935718980bdc5ee3.tar.gz drakx-backup-do-not-use-c367a7b536cbc28a666370a8935718980bdc5ee3.tar.bz2 drakx-backup-do-not-use-c367a7b536cbc28a666370a8935718980bdc5ee3.tar.xz drakx-backup-do-not-use-c367a7b536cbc28a666370a8935718980bdc5ee3.zip | |
no_comment
Diffstat (limited to 'perl-install/standalone/drakboot')
| -rwxr-xr-x | perl-install/standalone/drakboot | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index 8bff3e2eb..ee348b93f 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -21,10 +21,16 @@ my $in = vnew interactive('su'); my %l = ( _("Configure LILO/GRUB") => '', - _("Create a boot floppy") => '/usr/X11R6/bin/drakfloppy', - _("Format floppy") => '/usr/bin/gfloppy', + _("Create a boot floppy") => ['/usr/X11R6/bin/drakfloppy'], + _("Format floppy") => [ '/usr/bin/kfloppy', '/usr/bin/gfloppy' ], ); --x $l{$_} or delete $l{$_} foreach grep { $l{$_} } keys %l; +while (my ($k, $v) = each %l) { + $v or next; + foreach (@$v) { + -x $_ and $l{$k} = $_, last; + } + -x $l{$k} or delete $l{$_}; +} if ($ENV{DISPLAY} && c::Xtest($ENV{DISPLAY})) { my $cmd = $l{$in->ask_from_list(_("Choice"), _("What do you want to do?"), [ keys %l ])}; |