From fd2e6cd9c2f41d57a7a2caf7e73a37e5beaa9227 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 7 Nov 2003 15:04:06 +0000
Subject: - scan all loops, not only @names - always_i18n is a magic name which
 is renamed to the used always_i18n_xxx - return the file <=> loop association
 when asked

---
 move/tree/mdk_move_loop | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/move/tree/mdk_move_loop b/move/tree/mdk_move_loop
index 08fff00f7..00158727d 100755
--- a/move/tree/mdk_move_loop
+++ b/move/tree/mdk_move_loop
@@ -6,15 +6,10 @@ sub name2file {
 }
 
 sub get_file2loop {
-    my (@names) = @_;
-    my %files = map { name2file($_) => 1 } @names;
     my %file2loop;
     foreach (0 .. 9) {
 	my ($file) = `sudo losetup /dev/loop$_ 2>/dev/null` =~ m!\([^)]*/([^)]*)\)! or last;
-        if (delete $files{$file}) {
-	    $file2loop{$file} = "loop$_";
-	    last if !%files;
-	}
+	$file2loop{$file} = "loop$_";
     }
     %file2loop;
 }
@@ -48,7 +43,14 @@ $f && @names or usage();
 my %file2loop = get_file2loop(@names);
 
 foreach my $name (@names) {
+    if ($name eq 'always_i18n') {
+	/(always_i18n.*)\.clp/ and $name = $1 foreach keys %file2loop;
+    }
     my $file = name2file($name);
     my $loop = $file2loop{$file} or next;
     $f->($loop, $file);
 }
+
+if ($ENV{GIVE_LOOP}) {
+    print "$_=$file2loop{$_}\n" foreach keys %file2loop;
+}
-- 
cgit v1.2.1