From 16af9628dc9ba7a8b32aae17c70c60c3d76a7bc4 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 29 Nov 2013 09:31:24 +0100 Subject: simplify --- perl-install/harddrake/sound.pm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'perl-install/harddrake') diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm index 6a48c302e..c24e84fd7 100644 --- a/perl-install/harddrake/sound.pm +++ b/perl-install/harddrake/sound.pm @@ -128,10 +128,7 @@ sub switch { my ($in, $modules_conf, $device) = @_; my $driver = $device->{current_driver} || $device->{driver}; - my @alternative; - if ($driver ne $device->{driver}) { - push @alternative, $device->{driver}; - } + my @alternative = $driver ne $device->{driver} ? $device->{driver} : (); if (@alternative) { my $new_driver = $driver; push @alternative, $driver; -- cgit v1.2.1