diff options
| -rw-r--r-- | perl-install/network/netconnect.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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]} }, }, ], |