From ef6406a47d70f21632c656eb829c321b95fe9189 Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Thu, 23 Jan 2003 11:27:19 +0000
Subject: isdn.pm now in use strict little cleanup

---
 perl-install/network/adsl.pm       | 1 -
 perl-install/network/isdn.pm       | 6 +++---
 perl-install/network/modem.pm      | 1 -
 perl-install/network/netconnect.pm | 2 +-
 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();
-- 
cgit v1.2.1