summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-06 19:24:03 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-06 19:24:03 +0000
commit12e2b5c87a379eec81c5e2d80b67493689691082 (patch)
tree102f4af9d8bcd168175a4f4dddda3e5862d82c70 /perl-install/standalone
parent41ba541d10a02a787d5fe4974a9c389093c3b155 (diff)
downloaddrakx-12e2b5c87a379eec81c5e2d80b67493689691082.tar
drakx-12e2b5c87a379eec81c5e2d80b67493689691082.tar.gz
drakx-12e2b5c87a379eec81c5e2d80b67493689691082.tar.bz2
drakx-12e2b5c87a379eec81c5e2d80b67493689691082.tar.xz
drakx-12e2b5c87a379eec81c5e2d80b67493689691082.zip
make perl_checker happy
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/diskdrake1
-rwxr-xr-xperl-install/standalone/service_harddrake4
2 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index 8f42d9664..2297a07de 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -68,6 +68,7 @@ if ($>) {
my $in = 'interactive'->vnew('su');
if ($type eq 'fileshare') {
+ require any;
any::fileshare_config($in);
$in->exit(0);
}
diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake
index 84097e9a9..29e811ec0 100755
--- a/perl-install/standalone/service_harddrake
+++ b/perl-install/standalone/service_harddrake
@@ -46,9 +46,9 @@ foreach (@harddrake::data::tree) {
}
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);
+ next unless -x $configurator;
my ($pid, $no);
$SIG{ALRM} = sub { $no = 1; kill 15, $pid };
unless ($pid = fork) {