From f98177576ded96c74ca1ef9d04674737e4fee404 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 20 Nov 2002 14:17:07 +0000
Subject: perl_checker fixes

---
 perl-install/standalone/draksec           | 4 ++--
 perl-install/standalone/draksound         | 1 +
 perl-install/standalone/service_harddrake | 4 ++--
 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);
-- 
cgit v1.2.1