summaryrefslogtreecommitdiffstats
path: root/perl-install/harddrake
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/harddrake')
-rw-r--r--perl-install/harddrake/data.pm6
-rw-r--r--perl-install/harddrake/sound.pm4
2 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index 64c21db6b..41eea7798 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -16,7 +16,7 @@ sub unknown() {
&& !member($_->{driver}, qw(cpia_usb cyber2000fb forcedeth ibmcam megaraid mod_quickcam nvnet ohci1394 ov511 ov518_decomp scanner ultracam usbvideo usbvision))
&& $_->{driver} !~ /^ISDN|Mouse:USB|Removable:zip|class\|Mouse|sata|www.linmodems.org/
&& $_->{type} ne 'network'
- && $_->{description} !~ /Alcatel|ADSL Modem/
+ && $_->{description} !~ /Alcatel|ADSL Modem/;
} @devices;
}
@@ -169,8 +169,8 @@ our @tree =
detector => sub {
f(grep {
$_->{media_type} =~ /MULTIMEDIA_VIDEO/ && $_->{bus} ne 'PCI'
- || member($_->{driver}, qw(cpia_usb cyber2000fb ibmcam mod_quickcam ov511 ov518_decomp pwc ultracam usbvideo))
- } @devices)
+ || member($_->{driver}, qw(cpia_usb cyber2000fb ibmcam mod_quickcam ov511 ov518_decomp pwc ultracam usbvideo));
+ } @devices);
},
# managed by hotplug:
checked_on_boot => 0,
diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index 9fe403f41..9b675b3d9 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -204,7 +204,7 @@ sub switch {
foreach (@blacklist) { $blacklisted = 1 if $driver eq $_ }
my @alternative = @{get_alternative($driver)};
unless ($driver eq $device->{driver} || member($device->{driver}, @alternative)) {
- push @alternative, @{get_alternative($device->{driver})}, $device->{driver}
+ push @alternative, @{get_alternative($device->{driver})}, $device->{driver};
}
if (@alternative) {
my $new_driver = $driver;
@@ -331,7 +331,7 @@ The current driver for your \"%s\" sound card is \"%s\" ", $device->{description
goto end;
}
}
- }
+ };
}