Changeset 3229 in MondoRescue for branches/3.2/MondoRescue

Timestamp:

Dec 30, 2013, 10:46:41 AM (10 years ago)

Author:

Bruno Cornec

Message:

• Improve mr_file_process_ldd interface (now similar to read_all_link). These functions are now ready to be used by mindi

Location:

branches/3.2/MondoRescue

Files:

• bin/mr-process-ldd (modified) (1 diff)
• lib/MondoRescue/File.pm (modified) (3 diffs)

branches/3.2/MondoRescue/bin/mr-process-ldd

@@ -58 +58 @@
 foreach my $f (sort keys %$file) {
     print "$f\n";
+    print "--\n";
+    foreach my $l (@{$file->{$f}}) {
+        print "$l\n";
+    }
+    print "--\n";
 }

branches/3.2/MondoRescue/lib/MondoRescue/File.pm

@@ -48 +48 @@
 =cut
 
-$pbdebug = 2;
+#$pbdebug = 2;
 
 sub mr_file_normalize {
@@ -62 +62 @@
 return($f) if (not defined $f);
 
-pb_log(0,"mr_file_normalize file: **$f**\n");
-pb_log(0,"mr_file_normalize dir : **$dir**\n") if (defined $dir);
+pb_log(2,"mr_file_normalize file: **$f**\n");
+pb_log(2,"mr_file_normalize dir : **$dir**\n") if (defined $dir);
 
 # Handle case of . at the start in path
@@ -171 +171 @@
         $answer = $orig if ($orig =~ /^\//);
         $answer = $dest if ((defined $dest) && ($dest =~ /^\//));
-        $files->{$answer} = $answer if (defined $answer);
+        push @{$files->{$f}},$answer if (defined $answer);
     }
 }