From 6e230863720c63b6a39a53f3c0a15de771a373d2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 10 Jun 2005 04:40:18 +0000
Subject: move loopback.pm to fs/loopback.pm (since it's tightly tight to many
 fs* things)

---
 perl-install/pkgs.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install/pkgs.pm')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index d9ad942e2..2f8dd48dd 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -12,7 +12,7 @@ use run_program;
 use detect_devices;
 use log;
 use fs;
-use loopback;
+use fs::loopback;
 use c;
 
 our %preferred = map { $_ => undef } qw(lilo perl-base gstreamer-oss openjade ctags glibc curl sane-backends postfix mdkkdm gcc gcc-cpp gcc-c++ proftpd ghostscript-X vim-minimal kernel db1 db2 libxpm4 zlib1 libncurses5 harddrake cups apache);
@@ -1050,7 +1050,7 @@ sub install {
     return if !@$toInstall;
 
     #- for root loopback'ed /boot
-    my $loop_boot = loopback::prepare_boot();
+    my $loop_boot = fs::loopback::prepare_boot();
 
     #- first stage to extract some important information
     #- about the selected packages. This is used to select
@@ -1081,7 +1081,7 @@ sub install {
 	if ($nb == 0 && scalar(@transToInstall) == 0) {
 	    cleanHeaders();
 
-	    loopback::save_boot($loop_boot);
+	    fs::loopback::save_boot($loop_boot);
 	    return;
 	}
 
@@ -1265,7 +1265,7 @@ sub install {
 
     cleanHeaders();
 
-    loopback::save_boot($loop_boot);
+    fs::loopback::save_boot($loop_boot);
 }
 
 sub remove {
-- 
cgit v1.2.1