From 9fd484efa9780f0a55d4d8c002fdf9a01ac4be61 Mon Sep 17 00:00:00 2001 From: Damien Chaumette Date: Mon, 12 May 2003 16:34:58 +0000 Subject: s/@isdn::isdndata/@isdndata/ --- perl-install/network/isdn.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/network') diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index ee17dc03a..c3c63ccc2 100644 --- a/perl-install/network/isdn.pm +++ b/perl-install/network/isdn.pm @@ -279,7 +279,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} } @isdn::isdndata ]) or goto isdn_ask_step_1; + [ grep { $_->{card} eq $isdn->{card_type} } @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: @@ -327,12 +327,12 @@ sub isdn_detect_backend { } sub isdn_get_list() { - map { $_->{description} } @isdn::isdndata; + map { $_->{description} } @isdndata; } sub isdn_get_info { my ($desc) = @_; - foreach (@isdn::isdndata) { + foreach (@isdndata) { return $_ if $_->{description} eq $desc; } } -- cgit v1.2.1