From bfcc35f8882cb0fbd5c965a43ccd8103e38ed5e6 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 16 Nov 2004 10:14:11 +0000 Subject: create isEmpty() and use it instead of simply testing {pt_type}, since {pt_type} can be undef whereas {fs_type} is set --- perl-install/fs/get.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/fs/get.pm') diff --git a/perl-install/fs/get.pm b/perl-install/fs/get.pm index 859ddf0ac..6b982c1e9 100644 --- a/perl-install/fs/get.pm +++ b/perl-install/fs/get.pm @@ -30,10 +30,10 @@ sub fstab_and_holes { sub holes { my ($all_hds) = @_; - grep { $_->{pt_type} == 0 } fstab_and_holes($all_hds); + grep { isEmpty($_) } fstab_and_holes($all_hds); } sub hds_holes { - grep { $_->{pt_type} == 0 } hds_fstab_and_holes(@_); + grep { isEmpty($_) } hds_fstab_and_holes(@_); } sub free_space { my ($all_hds) = @_; -- cgit v1.2.1