summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-01-23 10:21:53 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-01-23 10:21:53 +0000
commitd5ac99d987c49dc81aab14b6ff0a811a1a84adf2 (patch)
tree61ee379ebc9e9a6370361cd80329686abfb47016 /perl-install/network/netconnect.pm
parent7f0d56e47d3c6d230fe1a96aaa8066567bbfb4d8 (diff)
downloaddrakx-backup-do-not-use-d5ac99d987c49dc81aab14b6ff0a811a1a84adf2.tar
drakx-backup-do-not-use-d5ac99d987c49dc81aab14b6ff0a811a1a84adf2.tar.gz
drakx-backup-do-not-use-d5ac99d987c49dc81aab14b6ff0a811a1a84adf2.tar.bz2
drakx-backup-do-not-use-d5ac99d987c49dc81aab14b6ff0a811a1a84adf2.tar.xz
drakx-backup-do-not-use-d5ac99d987c49dc81aab14b6ff0a811a1a84adf2.zip
force strict mode
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm3
1 files changed, 2 insertions, 1 deletions
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 };