From 932b873787f546efa2629bc903988b40b04fb919 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 12 Nov 2003 12:31:23 +0000
Subject: fix bogus use of old netwok module instead of network::network

---
 perl-install/printer/printerdrake.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/printer')

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);
 	     }
-- 
cgit v1.2.1