summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-20 14:17:07 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-20 14:17:07 +0000
commitf98177576ded96c74ca1ef9d04674737e4fee404 (patch)
tree92a85219e37e637062f83ef06b319b2fe4629105 /perl-install/standalone
parent16d0c766f22432b2445768b57c878a7e3d67a495 (diff)
downloaddrakx-backup-do-not-use-f98177576ded96c74ca1ef9d04674737e4fee404.tar
drakx-backup-do-not-use-f98177576ded96c74ca1ef9d04674737e4fee404.tar.gz
drakx-backup-do-not-use-f98177576ded96c74ca1ef9d04674737e4fee404.tar.bz2
drakx-backup-do-not-use-f98177576ded96c74ca1ef9d04674737e4fee404.tar.xz
drakx-backup-do-not-use-f98177576ded96c74ca1ef9d04674737e4fee404.zip
perl_checker fixes
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/draksec4
-rwxr-xr-xperl-install/standalone/draksound1
-rwxr-xr-xperl-install/standalone/service_harddrake4
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);