From 701f4ba3cbaecf0b0a4877c3f283739bd0d232fb Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 3 Jan 2005 13:03:36 +0000
Subject: move mdkinst.clp on hard drive ASAP => allows multi-cd installs even
 if the mdkinst.clp was not preloaded => allows to better memory handling
 during pkgs install (hopefully at least)

---
 perl-install/devices.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

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

diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 5771468c8..50dd3bef6 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -64,6 +64,17 @@ sub set_loop {
     $dev;
 }
 
+sub find_clp_loop {
+    my ($name) = @_;
+    foreach (0..255) {
+	my $dev = make("loop$_");
+	my ($file) = `losetup $dev 2>/dev/null` =~ m!\((.*?)\)! or return;
+	$file =~ s!^/sysroot/!/!;
+	basename($file) eq $name and return $dev, $file;
+    }
+    undef;
+}
+
 sub init_device_mapper() {
     eval { modules::load('dm-mod') };
     make('urandom');
-- 
cgit v1.2.1