From ff869879012557e4c90bb8c8d4fe109dff26b701 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 12 Feb 2004 11:36:11 +0000
Subject: sort ADSL protocols according to locale

---
 perl-install/network/netconnect.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 18d93f1a3..1651577bf 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -669,7 +669,7 @@ Some connections use pptp, a few use dhcp.
 If you don't know, choose 'use pppoe'"),
                     data =>  [
                               { text => N("ADSL connection type :"), val => \$adsl_type, type => "list",
-                                list => [ sort { $adsl_types{$::a} <=> $adsl_types{$::b} } keys %adsl_types ],
+                                list => [ sort { $adsl_types{$a} cmp $adsl_types{$b} } keys %adsl_types ],
                                 format => sub { $adsl_types{$_[0]} },
                               },
                              ],
-- 
cgit v1.2.1