From 12e2b5c87a379eec81c5e2d80b67493689691082 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 6 Nov 2002 19:24:03 +0000
Subject: make perl_checker happy

---
 perl-install/standalone/diskdrake         | 1 +
 perl-install/standalone/service_harddrake | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone')

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) {
-- 
cgit v1.2.1