perl_checker fixes

3 files changed, 5 insertions, 4 deletions

diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index fe2794b52..3e98a56a3 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -33,8 +33,8 @@ use vars qw($MODE %options);
 use security::main;
 
 $MODE = 'basic';
-$0 =~ '/draksec-firewall$' and $MODE = 'firewall';
-$0 =~ '/draksec-perms$' and $MODE = 'perms';
+$0 =~ /draksec-firewall$/ and $MODE = 'firewall';
+$0 =~ /draksec-perms$/ and $MODE = 'perms';
 
 /^-?-(\S+)$/ and $options{$1} = 1 foreach @ARGV;
 
diff --git a/perl-install/standalone/draksound b/perl-install/standalone/draksound
index 32acca45c..51b503332 100755
--- a/perl-install/standalone/draksound
+++ b/perl-install/standalone/draksound
@@ -25,6 +25,7 @@ use interactive;
 use common;
 use harddrake::sound;
 use modules;
+use detect_devices;
 
 my $in = 'interactive'->vnew();
 
diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake
index 29e811ec0..6fc2611d1 100755
--- a/perl-install/standalone/service_harddrake
+++ b/perl-install/standalone/service_harddrake
@@ -42,11 +42,11 @@ foreach (@harddrake::data::tree) {
     my @was_removed = difference2([ keys %$oldconfig ], [ keys %ID ]);
     if (@was_removed) {
 	$msg .= N("Some devices in the \"%s\" hardware class were removed:\n", $item) .
-	    "- ". harddrake::data::custom_id($oldconfig->{$_}, $item) ." was removed\n" foreach @was_removed . "\n";
+	    "- " . harddrake::data::custom_id($oldconfig->{$_}, $item) . " was removed\n" foreach @was_removed . "\n";
     }
     my @added = difference2([ keys %ID ], [ keys %$oldconfig ]);
     $msg .= N("Some devices were added:\n", $item) if @added;
-    $msg .= "- ". harddrake::data::custom_id($ID{$_}, $item) ." was added\n" foreach @added;
+    $msg .= "- " . harddrake::data::custom_id($ID{$_}, $item) . " was added\n" foreach @added;
     @added || @was_removed or next;
     next unless -x $configurator;
     my ($pid, $no);