summaryrefslogtreecommitdiffstats
path: root/perl-install/c
diff options
context:
space:
mode:
authorMatteo Pasotti <matteo@mageia.org>2013-03-07 12:18:10 +0000
committerMatteo Pasotti <matteo@mageia.org>2013-03-07 12:18:10 +0000
commit854c8c21f78bb44c9b5592e2cb03a8e46765a5ca (patch)
tree42e9a2b7ac284b1dffee1e06b249d4835d033538 /perl-install/c
parent84b241c07ad0411c1f6a9037c1ed87163550c25b (diff)
downloaddrakx-854c8c21f78bb44c9b5592e2cb03a8e46765a5ca.tar
drakx-854c8c21f78bb44c9b5592e2cb03a8e46765a5ca.tar.gz
drakx-854c8c21f78bb44c9b5592e2cb03a8e46765a5ca.tar.bz2
drakx-854c8c21f78bb44c9b5592e2cb03a8e46765a5ca.tar.xz
drakx-854c8c21f78bb44c9b5592e2cb03a8e46765a5ca.zip
updated Italian translations
Diffstat (limited to 'perl-install/c')
0 files changed, 0 insertions, 0 deletions
generated by cgit v1.2.1 (git 2.21.0) at 2024-12-19 12:10:35 +0000
at' class='diffstat'>-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 e77bd471f..de3f8a4b5 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -264,7 +264,7 @@ sub get_default_gateway_interface {
sub get_interface_status {
my ($gw_intf) = @_;
my @routes = `$::prefix/sbin/ip route show`;
- my $is_up = to_bool(grep { /\s+dev\s+$gw_intf(?:\s+|$)/ } @routes);
+ my $is_up = any { /\s+dev\s+$gw_intf(?:\s+|$)/ } @routes;
my ($gw_address) = join('', @routes) =~ /^default\s+via\s+(\S+).*\s+dev\s+$gw_intf(?:\s+|$)/m;
return $is_up, $gw_address;
}
generated by cgit v1.2.1 (git 2.21.0) at 2024-12-19 12:10:35 +0000