1 files changed, 11 insertions, 0 deletions
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');