summaryrefslogtreecommitdiffstats
path: root/perl-install/network/tools.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network/tools.pm')
-rw-r--r--perl-install/network/tools.pm8
1 files 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)