summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-11-04 16:50:09 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-11-04 16:50:09 +0000
commit85b096b348d1d6debb534c0fd72a63539e863dea (patch)
tree5bd62fda1cf204dcf62b9009b3b55e4ecba4aed3
parent2f9c7aa5b8e77e5eee601de02078452f1c95e7da (diff)
downloaddrakx-85b096b348d1d6debb534c0fd72a63539e863dea.tar
drakx-85b096b348d1d6debb534c0fd72a63539e863dea.tar.gz
drakx-85b096b348d1d6debb534c0fd72a63539e863dea.tar.bz2
drakx-85b096b348d1d6debb534c0fd72a63539e863dea.tar.xz
drakx-85b096b348d1d6debb534c0fd72a63539e863dea.zip
perl_checker fixes
-rw-r--r--perl-install/network/isdn.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm
index 9ee1ad034..89161e78e 100644
--- a/perl-install/network/isdn.pm
+++ b/perl-install/network/isdn.pm
@@ -208,7 +208,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->{card_type} =~ /usb|pci/ ? 'isdn_ask_step_1' : 'isdn_ask_step_1b');
+ [ grep { $_->{card} eq $isdn->{card_type} } @isdndata ]) or goto($isdn->{card_type} =~ /usb|pci/ ? 'isdn_ask_step_1' : 'isdn_ask_step_1b');
$e->{$_} and $isdn->{$_} = $e->{$_} foreach qw(driver type mem io io0 io1 irq firmware);
isdn_ask_step_3:
@@ -244,8 +244,8 @@ sub isdn_detect {
1;
}
-sub isdn_detect_backend {
- my ($isdn) = { };
+sub isdn_detect_backend() {
+ my $isdn = { };
if (my ($c) = modules::probe_category('network/isdn')) {
$isdn = { map { $_ => $c->{$_} } qw(description vendor id driver card_type type) };
$isdn->{$_} = sprintf("%0x", $isdn->{$_}) foreach 'vendor', 'id';