summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs/dmraid.pm2
-rw-r--r--perl-install/fsedit.pm3
2 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/fs/dmraid.pm b/perl-install/fs/dmraid.pm
index a45a90405..dc1b9cd10 100644
--- a/perl-install/fs/dmraid.pm
+++ b/perl-install/fs/dmraid.pm
@@ -14,8 +14,6 @@ use fs::wild_device;
use run_program;
-init() or log::l("dmraid::init failed");
-
sub init() {
whereis_binary('dmraid') or die "dmraid not installed";
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index b922bdd6d..90f277791 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -105,7 +105,8 @@ sub handle_dmraid {
devices::make($_->{device}) foreach @$drives;
- eval { require fs::dmraid; 1 } or return;
+ require fs::dmraid;
+ fs::dmraid::init() or log::l("dmraid::init failed"), return;
my @vgs = fs::dmraid::vgs();
log::l(sprintf('dmraid: ' . join(' ', map { "$_->{device} [" . join(' ', @{$_->{disks}}) . "]" } @vgs)));