2 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 843fb6835..b8390f565 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -2,6 +2,8 @@
   o do not crash b/c ext4 was forbidden for /boot (#47853)
 - diskdrake
   o really don't set extents option for ext4
+- drakdvb:
+  o sort channels list
 
 Version 11.88 - 16 February 2009
 
diff --git a/perl-install/standalone/drakdvb b/perl-install/standalone/drakdvb
index b4f1e2010..222dfd51e 100755
--- a/perl-install/standalone/drakdvb
+++ b/perl-install/standalone/drakdvb
@@ -94,16 +94,17 @@ sub detect_channels() {
 }
 
 sub load_channels() {
-    @{$channel_list->{data}} = ();
+    my @channels;
     open(my $CHANNELCONF, "<$config_file");
     local $_;
     while (<$CHANNELCONF>) {
         my $line = $_;
         if ($line =~ /^([^:]*?)(\([^(:]*\))?:/) {
-            push @{$channel_list->{data}}, [ $1, $1 . $2 ];
+            push @channels, [ $1, $1 . $2 ];
         }
     }
     close($CHANNELCONF);
+    @{$channel_list->{data}} = sort { $a->[0] cmp $b->[0] } @channels;
     if (defined @{$channel_list->{data}}[0]) {
         $channel_list->select(0);
     }