From 3274c8723d495a7974cb360720abc88ba5a78a67 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 31 Jul 2002 00:08:34 +0000 Subject: make new perl_checker happy (and that's not easy!) --- perl-install/fsedit.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/fsedit.pm') diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index b1bb6ea6b..523a6afa8 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -303,18 +303,18 @@ sub get_holes { sub get_all_fstab { my ($all_hds) = @_; my @parts = map { partition_table::get_normal_parts($_) } all_hds($all_hds); - my @raids = grep {$_} @{$all_hds->{raids}}; + my @raids = grep { $_ } @{$all_hds->{raids}}; @parts, @raids, @{$all_hds->{loopbacks}}; } sub get_really_all_fstab { my ($all_hds) = @_; my @parts = map { partition_table::get_normal_parts($_) } all_hds($all_hds); - my @raids = grep {$_} @{$all_hds->{raids}}; + my @raids = grep { $_ } @{$all_hds->{raids}}; @parts, @raids, @{$all_hds->{loopbacks}}, @{$all_hds->{raw_hds}}, @{$all_hds->{nfss}}, @{$all_hds->{smbs}}; } sub get_all_fstab_and_holes { my ($all_hds) = @_; - my @raids = grep {$_} @{$all_hds->{raids}}; + my @raids = grep { $_ } @{$all_hds->{raids}}; get_fstab_and_holes(all_hds($all_hds)), @raids, @{$all_hds->{loopbacks}}; } sub get_all_holes { -- cgit v1.2.1