summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2003-01-23 11:27:19 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2003-01-23 11:27:19 +0000
commitef6406a47d70f21632c656eb829c321b95fe9189 (patch)
treeb7737da22875788afe6018ae5a5ea78fcd11a285 /perl-install
parentd5ac99d987c49dc81aab14b6ff0a811a1a84adf2 (diff)
downloaddrakx-ef6406a47d70f21632c656eb829c321b95fe9189.tar
drakx-ef6406a47d70f21632c656eb829c321b95fe9189.tar.gz
drakx-ef6406a47d70f21632c656eb829c321b95fe9189.tar.bz2
drakx-ef6406a47d70f21632c656eb829c321b95fe9189.tar.xz
drakx-ef6406a47d70f21632c656eb829c321b95fe9189.zip
isdn.pm now in use strict
little cleanup
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/adsl.pm1
-rw-r--r--perl-install/network/isdn.pm6
-rw-r--r--perl-install/network/modem.pm1
-rw-r--r--perl-install/network/netconnect.pm2
4 files changed, 4 insertions, 6 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index 1413efa87..1ce7f5017 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -5,7 +5,6 @@ use run_program;
use network::tools;
use network::ethernet;
use modules;
-use Data::Dumper;
use vars qw(@ISA @EXPORT);
use MDK::Common::Globals "network", qw($in $prefix);
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index ba5477867..58ff7a8b6 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -278,7 +278,7 @@ If you have a PCMCIA card, you have to know the \"irq\" and \"io\" of your card.
$e = $in->ask_from_listf(N("ISDN Configuration"),
N("Which of the following is your ISDN card?"),
sub { $_[0]{description} },
- [ grep { $_->{card} eq $isdn->{card_type} } @isdndata ]) or goto isdn_ask_step_1;
+ [ grep { $_->{card} eq $isdn->{card_type} } @isdn::isdndata ]) or goto isdn_ask_step_1;
$e->{$_} and $isdn->{$_} = $e->{$_} foreach qw(driver type mem io io0 io1 irq firmware);
isdn_ask_step_3:
@@ -326,12 +326,12 @@ sub isdn_detect_backend {
}
sub isdn_get_list {
- map { $_->{description} } @isdndata;
+ map { $_->{description} } @isdn::isdndata;
}
sub isdn_get_info {
my ($desc) = @_;
- foreach (@isdndata) {
+ foreach (@isdn::isdndata) {
return $_ if $_->{description} eq $desc;
}
}
diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index 823883bd0..cbae2b0c6 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -7,7 +7,6 @@ use modules;
use detect_devices;
use mouse;
use network::tools;
-use Data::Dumper;
sub configure {
my ($in, $netcnx, $mouse, $netc, $_intf) = @_;
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index d1ab55e68..542577a3d 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -9,7 +9,6 @@ use modules;
use any;
use mouse;
use network;
-use Data::Dumper;
use network::tools;
use MDK::Common::Globals "network", qw($in $prefix $connect_file $disconnect_file $connect_prog);
@@ -71,6 +70,7 @@ sub detect {
network::adsl->import;
$auto_detect->{adsl} = adsl_detect($adsl);
+ my $modem = {};
require network::modem;
network::modem->import;
my ($modem, @pci_modems) = detect_devices::getModem();