summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-08-18 08:40:32 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-08-18 08:40:32 +0000
commit59d5768a88ed4222773e830c2d9f813ba5a9d0eb (patch)
tree234e139be23f3b0784a33adef0a53a6ed082cba9 /perl-install
parentf1a976d9cab46367030217f8c1c290550b0ad637 (diff)
downloaddrakx-backup-do-not-use-59d5768a88ed4222773e830c2d9f813ba5a9d0eb.tar
drakx-backup-do-not-use-59d5768a88ed4222773e830c2d9f813ba5a9d0eb.tar.gz
drakx-backup-do-not-use-59d5768a88ed4222773e830c2d9f813ba5a9d0eb.tar.bz2
drakx-backup-do-not-use-59d5768a88ed4222773e830c2d9f813ba5a9d0eb.tar.xz
drakx-backup-do-not-use-59d5768a88ed4222773e830c2d9f813ba5a9d0eb.zip
sort modules and directories in treeview
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakfloppy4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index 9bbd112c3..fddc9209a 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -72,7 +72,7 @@ $device_combo->set_popdown_strings(map { "/dev/" . $_->{device} } detect_devices
# kernel part
my $kernel_combo = new Gtk2::OptionMenu();
-$kernel_combo->set_popdown_strings(sort grep { !/^\.\.?$/ } all("/lib/modules"));
+$kernel_combo->set_popdown_strings(sort grep { !/^\.\.?$/ } sort(all("/lib/modules")));
$kernel_combo->entry->set_text(chomp_(`uname -r`));
@@ -261,7 +261,7 @@ sub expand_tree {
# do not refill the parent anymore
$tree_model->set($parent_iter, 2 => 0);
- foreach my $dir_entry (all($dir)) {
+ foreach my $dir_entry (sort(all($dir))) {
my $entry_path = $dir . "/" . $dir_entry;
if (-d $entry_path || $dir_entry =~ /\.(k|)o(\.gz)?$/) {
$entry_path =~ s|//|/|g;