diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-10-14 06:04:22 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-10-14 06:04:22 +0000 |
commit | 1f904b16be5d7dae34aeaa8ca2fa5a3c64491ba7 (patch) | |
tree | 4845a85817ba78016067dd6dfc33b1ad7f11e6d2 /perl-install | |
parent | 203185d0228bd8bcb607f677d9880aa833406dce (diff) | |
download | drakx-1f904b16be5d7dae34aeaa8ca2fa5a3c64491ba7.tar drakx-1f904b16be5d7dae34aeaa8ca2fa5a3c64491ba7.tar.gz drakx-1f904b16be5d7dae34aeaa8ca2fa5a3c64491ba7.tar.bz2 drakx-1f904b16be5d7dae34aeaa8ca2fa5a3c64491ba7.tar.xz drakx-1f904b16be5d7dae34aeaa8ca2fa5a3c64491ba7.zip |
cleanup thanks to perl_checker
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/harddrake2 | 5 | ||||
-rwxr-xr-x | perl-install/standalone/service_harddrake | 4 |
2 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index f9506bbc6..4c854211e 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -393,8 +393,9 @@ foreach (@classes) { if ($Ident eq "AUDIO") { require harddrake::sound; my $alter = harddrake::sound::get_alternative($_->{driver}); - my $alternative_drivers = join(', ', @$alter) if $alter->[0] ne 'unknown'; - $_->{alternative_drivers} = $alternative_drivers if $alternative_drivers; + if (my $alternative_drivers = $alter->[0] ne 'unknown' && join(', ', @$alter)) { + $_->{alternative_drivers} = $alternative_drivers; + } } if ($Ident eq "HARDDISK") { my $hd = $_; diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake index e428145d9..530059ff1 100755 --- a/perl-install/standalone/service_harddrake +++ b/perl-install/standalone/service_harddrake @@ -16,9 +16,9 @@ use modules; use Storable qw(store retrieve); -my $force = any { $_ eq '--force' } @ARGV; +my $force = member('--force', @ARGV); -my $mode = 'stop' if $ARGV[0] eq 'stop'; +my $mode = $ARGV[0] eq 'stop' && 'stop'; if ($mode eq 'stop') { append_to_file('/etc/hotplug/blacklist', "\nsnd-usb-audio\n"); |