From 1f904b16be5d7dae34aeaa8ca2fa5a3c64491ba7 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 14 Oct 2004 06:04:22 +0000 Subject: cleanup thanks to perl_checker --- perl-install/standalone/service_harddrake | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/service_harddrake') 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"); -- cgit v1.2.1