move loopback.pm to fs/loopback.pm

(since it's tightly tight to many fs* things)

1 files changed, 2 insertions, 1 deletions

diff --git a/perl-install/fs/get.pm b/perl-install/fs/get.pm
index 6b982c1e9..dca0a5aa9 100644
--- a/perl-install/fs/get.pm
+++ b/perl-install/fs/get.pm
@@ -5,6 +5,7 @@ use strict;
 
 use partition_table;
 use fs::type;
+use fs::loopback;
 use fs;
 use common;
 use log;
@@ -87,7 +88,7 @@ sub file2part {
 
     $file = $b_keep_simple_symlinks ? common::expand_symlinks_but_simple("$::prefix$file") : expand_symlinks("$::prefix$file");
     unless ($file =~ s/^$::prefix//) {
-	my $part = find { loopback::carryRootLoopback($_) } @$fstab or die;
+	my $part = find { fs::loopback::carryRootLoopback($_) } @$fstab or die;
 	log::l("found $part->{mntpoint}");
 	$file =~ s|/initrd/loopfs|$part->{mntpoint}|;
     }