From 90dc342dccc989c34d4bfdce29446f8ab8b0d1a5 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 13 Jul 2005 14:24:01 +0000 Subject: don't have a random result, sort --- perl-install/network/tools.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/network') 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) || -- cgit v1.2.1