summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2002-09-23 09:44:58 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2002-09-23 09:44:58 +0000
commit813771c0f97c6a5dd2dcc4ed0316e17456f31217 (patch)
tree100038db981af3e630cb69feeb56c641448dd5cb /perl-install
parentad5a92bb1d903255a57685e88213be74783f9115 (diff)
downloaddrakx-813771c0f97c6a5dd2dcc4ed0316e17456f31217.tar
drakx-813771c0f97c6a5dd2dcc4ed0316e17456f31217.tar.gz
drakx-813771c0f97c6a5dd2dcc4ed0316e17456f31217.tar.bz2
drakx-813771c0f97c6a5dd2dcc4ed0316e17456f31217.tar.xz
drakx-813771c0f97c6a5dd2dcc4ed0316e17456f31217.zip
fix NULL Gateway IP checking
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/network.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 912c4dcc8..b31e36e9f 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -372,11 +372,11 @@ You may also enter the IP address of the gateway if you have one"),
),
],
complete => sub {
- unless (is_ip($netc->{dnsServer})) {
+ if ($netc->{dnsServer} and !is_ip($netc->{dnsServer})) {
$in->ask_warn('', _("DNS server address should be in format 1.2.3.4"));
return 1;
}
- unless (is_ip($netc->{GATEWAY})) {
+ if ($netc->{GATEWAY} and !is_ip($netc->{GATEWAY})) {
$in->ask_warn('', _("Gateway address should be in format 1.2.3.4"));
return 1;
}