summaryrefslogtreecommitdiffstats
path: root/perl-install/printer
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/printer')
-rw-r--r--perl-install/printer/printerdrake.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 5a85d2467..59abb72d2 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -5,7 +5,7 @@ use strict;
use common;
use modules;
-use network;
+use network::network;
use log;
use interactive;
use printer::main;
@@ -1247,7 +1247,7 @@ sub setup_smb {
} else {
die qq(The "smb://" URI must at least contain the server name and the share name!\n);
}
- if (network::is_ip($smbserver)) {
+ if (is_ip($smbserver)) {
$smbserverip = $smbserver;
$smbserver = "";
}
@@ -1336,7 +1336,7 @@ sub setup_smb {
not_edit => 1, format => \&translate, sort => 0,
allow_empty_list => 1, type => 'combo' }) ],
complete => sub {
- if (!network::is_ip($smbserverip) && $smbserverip ne "") {
+ if (!is_ip($smbserverip) && $smbserverip ne "") {
$in->ask_warn('', N("IP address should be in format 1.2.3.4"));
return (1,1);
}