From 82ab154cc91bc4d2ceff3a207d119058d7d18454 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Mon, 27 Sep 2004 15:00:13 +0000 Subject: I sux, fix priority --- perl-install/network/tools.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index 3410d2250..a35896766 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -248,10 +248,10 @@ sub get_default_gateway_interface { `$::prefix/sbin/ip route show` =~ /^default.*\s+dev\s+(\S+)/m && $1 || $netc->{GATEWAYDEV} || $netc->{GATEWAY} && find_matching_interface($intf, $netc->{GATEWAY}) || - find { get_interface_type($intf->{$_}) eq 'adsl' } @intfs || - find { get_interface_type($intf->{$_}) eq 'isdn' && text2bool($intf->{$_}{DIAL_ON_IFUP}) } @intfs || - find { get_interface_type($intf->{$_}) eq 'modem' } @intfs || - find { get_interface_type($intf->{$_}) eq 'ethernet' && $intf->{$_}{BOOTPROTO} eq 'dhcp' } @intfs; + (find { get_interface_type($intf->{$_}) eq 'adsl' } @intfs) || + (find { get_interface_type($intf->{$_}) eq 'isdn' && text2bool($intf->{$_}{DIAL_ON_IFUP}) } @intfs) || + (find { get_interface_type($intf->{$_}) eq 'modem' } @intfs) || + (find { get_interface_type($intf->{$_}) eq 'ethernet' && $intf->{$_}{BOOTPROTO} eq 'dhcp' } @intfs); } #- returns (gateway_interface, interface is up, gateway address, dns server address) -- cgit v1.2.1