summaryrefslogtreecommitdiffstats
path: root/perl-install/printerdrake.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-11-10 16:32:57 +0000
committerFrancois Pons <fpons@mandriva.com>2000-11-10 16:32:57 +0000
commitce1984b4abfed8c6bf74e48be81d7c48525e1443 (patch)
tree72848a8215527e399c1a68d1280cc6d84e1eca68 /perl-install/printerdrake.pm
parent53548a5d3cea5079a55d46d98967c30a647ccf5b (diff)
downloaddrakx-ce1984b4abfed8c6bf74e48be81d7c48525e1443.tar
drakx-ce1984b4abfed8c6bf74e48be81d7c48525e1443.tar.gz
drakx-ce1984b4abfed8c6bf74e48be81d7c48525e1443.tar.bz2
drakx-ce1984b4abfed8c6bf74e48be81d7c48525e1443.tar.xz
drakx-ce1984b4abfed8c6bf74e48be81d7c48525e1443.zip
fixed wrong case for managing IP for remove CUPS server
Diffstat (limited to 'perl-install/printerdrake.pm')
-rw-r--r--perl-install/printerdrake.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index ce14456ba..4081b9721 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -416,7 +416,7 @@ and optionally the port number."), [
_("CUPS server IP") => \$server,
_("Port") => \$port ],
complete => sub {
- unless (network::is_ip($server)) {
+ unless (!$server || network::is_ip($server)) {
$in->ask_warn('', _("IP address should be in format 1.2.3.4"));
return (1,0);
}