From 59d5768a88ed4222773e830c2d9f813ba5a9d0eb Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 18 Aug 2003 08:40:32 +0000 Subject: sort modules and directories in treeview --- perl-install/standalone/drakfloppy | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') 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; -- cgit v1.2.1