From 505353adf8da622c604a7818391d3fa0770f172f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 5 Jul 2001 22:40:58 +0000
Subject: (file2part): created

---
 perl-install/fsedit.pm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index f5089cfd1..f7808dbf2 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -185,6 +185,27 @@ sub is_one_big_fat {
     @l == 1 && isFat($l[0]) && free_space(@$hds) < 10 << 11;
 }
 
+sub file2part {
+    my ($prefix, $fstab, $file) = @_;    
+    my $part;
+
+    $file = expand_symlinks "$prefix$file";
+    unless ($file =~ s/^$prefix//) {
+	my ($part) = grep { loopback::carryRootLoopback($_) } @$fstab or die;
+	log::l("found $part->{mntpoint}");
+	$file =~ s|/initrd/loopfs|$part->{mntpoint}|;
+    }
+    foreach (@$fstab) {
+	my $m = $_->{mntpoint};
+	$part = $_ if 
+	  $file =~ /^$m/ && 
+	    (!$part || length $part->{mntpoint} < length $m);
+    }
+    $part or die "file2part: not found $file";
+    $file =~ s|$part->{mntpoint}/?|/|;
+    ($part, $file);
+}
+
 
 sub computeSize {
     my ($part, $best, $hds, $suggestions) = @_;
-- 
cgit v1.2.1