summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-23 19:23:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-23 19:23:52 +0000
commit2fcbc894025a413a8007493eaa6a602dfb4c1980 (patch)
tree70e5991138117d869cf8030185d310ca38fe7771 /perl-install
parent5440545569825924186ea56fffeff86a3ca1d78d (diff)
downloaddrakx-backup-do-not-use-2fcbc894025a413a8007493eaa6a602dfb4c1980.tar
drakx-backup-do-not-use-2fcbc894025a413a8007493eaa6a602dfb4c1980.tar.gz
drakx-backup-do-not-use-2fcbc894025a413a8007493eaa6a602dfb4c1980.tar.bz2
drakx-backup-do-not-use-2fcbc894025a413a8007493eaa6a602dfb4c1980.tar.xz
drakx-backup-do-not-use-2fcbc894025a413a8007493eaa6a602dfb4c1980.zip
pixelification
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/network.pm16
1 files changed, 3 insertions, 13 deletions
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 35a4bad85..31944f2d9 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -334,20 +334,10 @@ notation (for example, 1.2.3.4).");
}
return 0 if $auto_ip;
- my $bad_ip = 0;
- each_index { unless (is_ip($intf->{$_})) {
+ if (my @bad = map_index { if_(is_ip($intf->{$_}), $::i) } @fields) {
$in->ask_warn('', N("IP address should be in format 1.2.3.4"));
- $bad_ip = 1;
- } } @fields;
- return 1 if $bad_ip;
-
- #for (my $i = 0; $i < @fields; $i++) {
- # unless (is_ip($intf->{$fields[$i]})) {
- # $in->ask_warn('', N("IP address should be in format 1.2.3.4"));
- # return (1);
- # }
- # return 0;
- #}
+ return 1, $bad[0];
+ }
return 0 if !$intf->{WIRELESS_FREQ};
if ($intf->{WIRELESS_FREQ} !~ /[0-9.]*[kGM]/) {