diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-11-18 13:25:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-11-18 13:25:45 +0000 |
| commit | 459eedd7dc7ef289f379d2fc1dc691a057d1e144 (patch) | |
| tree | a042f6f973b37076d459c3ec80404f9e4ffaa202 /perl-install/harddrake | |
| parent | fb67876005b9f7002d56f96269da9e6fb5d03b0f (diff) | |
| download | drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.gz drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.bz2 drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.xz drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.zip | |
remove some unneeded ";", add some for normalization (as told by perl_checker)
Diffstat (limited to 'perl-install/harddrake')
| -rw-r--r-- | perl-install/harddrake/data.pm | 6 | ||||
| -rw-r--r-- | perl-install/harddrake/sound.pm | 4 |
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; } } - } + }; } |