summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/network/isdn.pm1
-rw-r--r--perl-install/network/modem.pm1
-rw-r--r--perl-install/network/netconnect.pm3
-rw-r--r--perl-install/network/network.pm1
-rw-r--r--perl-install/network/shorewall.pm2
-rw-r--r--perl-install/network/tools.pm1
6 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index 62d23c628..ba5477867 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -1,5 +1,6 @@
package network::isdn;
+
use network::isdn_consts;
use common;
use any;
diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index ca4aca8f2..823883bd0 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -1,5 +1,6 @@
package network::modem;
+use strict;
use common;
use any;
use modules;
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 1c10b680a..d1ab55e68 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -1,5 +1,6 @@
package network::netconnect;
+use strict;
use common;
use log;
use detect_devices;
@@ -199,7 +200,7 @@ If you don't want to use the auto detection, deselect the checkbox.
load_conf($netcnx, $netc, $intf);
$conf{modem} and do { pre_func("modem"); require network::modem; network::modem::configure($in, $netcnx, $mouse, $netc, $intf) or goto step_2 };
$conf{winmodem} and do { pre_func("winmodem"); require network::modem; network::modem::winmodemConfigure($in, $netc) or goto step_2 };
- $conf{isdn} and do { pre_func("isdn"); require network::isdn; network::isdn::configure($netcnx, $netc, $isdn) or goto step_2 };
+ $conf{isdn} and do { pre_func("isdn"); require network::isdn; network::isdn::configure($netcnx, $netc, undef) or goto step_2 };
$conf{adsl} and do { pre_func("adsl"); require network::adsl; network::adsl::configure($netcnx, $netc, $intf, $first_time) or goto step_2 };
$conf{cable} and do { pre_func("cable"); require network::ethernet; network::ethernet::configure_cable($netcnx, $netc, $intf, $first_time) or goto step_2; $netconnect::need_restart_network = 1 };
$conf{lan} and do { pre_func("local network"); require network::ethernet; network::ethernet::configure_lan($netcnx, $netc, $intf, $first_time) or goto step_2; $netconnect::need_restart_network = 1 };
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 8101859af..ee129007f 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -3,6 +3,7 @@ package network::network; # $Id$wir
#-######################################################################################
#- misc imports
#-######################################################################################
+use strict;
use Socket;
use common;
diff --git a/perl-install/network/shorewall.pm b/perl-install/network/shorewall.pm
index a1fcf5aba..6f01bca0a 100644
--- a/perl-install/network/shorewall.pm
+++ b/perl-install/network/shorewall.pm
@@ -2,7 +2,7 @@ package network::shorewall; # $Id$
-
+use strict;
use detect_devices;
use network::netconnect;
use run_program;
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index acaae8cad..6db983f9a 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -1,5 +1,6 @@
package network::tools;
+use strict;
use common;
use run_program;
use c;