From 236b47f5fcf5b70a6156b495dfc2e517d4d21abc Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 13 Jun 2005 05:34:30 +0000 Subject: fsedit::is_same_hd is now fs:get::is_same_hd --- perl-install/fs.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/fs.pm') diff --git a/perl-install/fs.pm b/perl-install/fs.pm index 766a2e702..ce037a7af 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -104,7 +104,7 @@ sub merge_fstabs { my ($loose, $fstab, @l) = @_; foreach my $p (@$fstab) { - my ($l1, $l2) = partition { fsedit::is_same_hd($_, $p) } @l; + my ($l1, $l2) = partition { fs::get::is_same_hd($_, $p) } @l; my ($p2) = @$l1 or next; @l = @$l2; @@ -274,7 +274,7 @@ sub merge_info_from_fstab { my @l = grep { if ($uniq) { my $part = fs::get::mntpoint2part($_->{mntpoint}, $fstab); - !$part || fsedit::is_same_hd($part, $_); #- keep it only if it is the mountpoint AND the same device + !$part || fs::get::is_same_hd($part, $_); #- keep it only if it is the mountpoint AND the same device } else { 1; } -- cgit v1.2.1