isdn.pm now in use strict

little cleanup

1 files changed, 3 insertions, 3 deletions

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;
     }
 }