diff options
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"); |