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(-)
(limited to 'move')
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