summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-07-13 14:24:01 +0000
committerOlivier Blin <oblin@mandriva.org>2005-07-13 14:24:01 +0000
commit90dc342dccc989c34d4bfdce29446f8ab8b0d1a5 (patch)
tree0e7f402b298c9502315b5531a0835b3775840c1b /perl-install
parent2dc54aff64de5aebcddf9211099a454e3cc35d72 (diff)
downloaddrakx-backup-do-not-use-90dc342dccc989c34d4bfdce29446f8ab8b0d1a5.tar
drakx-backup-do-not-use-90dc342dccc989c34d4bfdce29446f8ab8b0d1a5.tar.gz
drakx-backup-do-not-use-90dc342dccc989c34d4bfdce29446f8ab8b0d1a5.tar.bz2
drakx-backup-do-not-use-90dc342dccc989c34d4bfdce29446f8ab8b0d1a5.tar.xz
drakx-backup-do-not-use-90dc342dccc989c34d4bfdce29446f8ab8b0d1a5.zip
don't have a random result, sort
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/tools.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 9305fbd46..a1531c64e 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -190,7 +190,7 @@ sub get_default_gateway_interface {
my ($net) = @_;
my @intfs = sort keys %{$net->{ifcfg}};
my $routes = get_routes();
- (find { $routes->{$_}{gateway} } keys %$routes) ||
+ (find { $routes->{$_}{gateway} } sort keys %$routes) ||
$net->{network}{GATEWAYDEV} ||
$net->{network}{GATEWAY} && find_matching_interface($net, $net->{network}{GATEWAY}) ||
(find { get_interface_type($net->{ifcfg}{$_}) eq 'adsl' } @intfs) ||