diff options
author | Francois Pons <fpons@mandriva.com> | 2000-11-10 16:32:57 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2000-11-10 16:32:57 +0000 |
commit | ce1984b4abfed8c6bf74e48be81d7c48525e1443 (patch) | |
tree | 72848a8215527e399c1a68d1280cc6d84e1eca68 /perl-install/printerdrake.pm | |
parent | 53548a5d3cea5079a55d46d98967c30a647ccf5b (diff) | |
download | drakx-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.pm | 2 |
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); } |