diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 00:08:34 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 00:08:34 +0000 |
| commit | 3274c8723d495a7974cb360720abc88ba5a78a67 (patch) | |
| tree | 19d1c960f478857633705f21fb39cc1d06f32a2c /perl-install/raid.pm | |
| parent | 26977564bb8eb4076b93e4cd25e95b44a67076ab (diff) | |
| download | drakx-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.pm | 8 |
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}}; } } |