summaryrefslogtreecommitdiffstats
path: root/perl-install/raid.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-31 00:08:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-31 00:08:34 +0000
commit3274c8723d495a7974cb360720abc88ba5a78a67 (patch)
tree19d1c960f478857633705f21fb39cc1d06f32a2c /perl-install/raid.pm
parent26977564bb8eb4076b93e4cd25e95b44a67076ab (diff)
downloaddrakx-3274c8723d495a7974cb360720abc88ba5a78a67.tar
drakx-3274c8723d495a7974cb360720abc88ba5a78a67.tar.gz
drakx-3274c8723d495a7974cb360720abc88ba5a78a67.tar.bz2
drakx-3274c8723d495a7974cb360720abc88ba5a78a67.tar.xz
drakx-3274c8723d495a7974cb360720abc88ba5a78a67.zip
make new perl_checker happy (and that's not easy!)
Diffstat (limited to 'perl-install/raid.pm')
-rw-r--r--perl-install/raid.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/raid.pm b/perl-install/raid.pm
index 86a27d866..492225ceb 100644
--- a/perl-install/raid.pm
+++ b/perl-install/raid.pm
@@ -82,7 +82,7 @@ sub updateSize {
$part->{size} = do {
if (/0|linear/) { sum @l }
- elsif (/1/ ) { min @l }
+ elsif (/1/) { min @l }
elsif (/4|5/) { min(@l) * $#l }
};
}
@@ -107,7 +107,7 @@ sub write {
local $\ = "\n";
open F, ">$file" or die _("Can't write file %s", $file);
- foreach (grep {$_} @$raids) {
+ foreach (grep { $_ } @$raids) {
print F <<"EOF";
raiddev /dev/$_->{device}
raid-level $_->{level}
@@ -149,7 +149,7 @@ sub format_part {
sub verify {
my ($raids) = @_;
$raids or return;
- foreach (grep {$_} @$raids) {
+ foreach (grep { $_ } @$raids) {
@{$_->{disks}} >= ($_->{level} =~ /4|5/ ? 3 : 2) or die _("Not enough partitions for RAID level %d\n", $_->{level});
}
}
@@ -159,7 +159,7 @@ sub prepare_prefixed {
$raids or return;
eval { cp_af("/etc/raidtab", "$prefix/etc/raidtab") };
- foreach (grep {$_} @$raids) {
+ foreach (grep { $_ } @$raids) {
devices::make("$prefix/dev/$_->{device}") foreach @{$_->{disks}};
}
}