From ce1984b4abfed8c6bf74e48be81d7c48525e1443 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 10 Nov 2000 16:32:57 +0000 Subject: fixed wrong case for managing IP for remove CUPS server --- perl-install/printerdrake.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); } -- cgit v1.2.1