Changeset 3229


Ignore:
Timestamp:
Dec 30, 2013, 10:46:41 AM (6 years ago)
Author:
bruno
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:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/3.2/MondoRescue/bin/mr-process-ldd

    r3226 r3229  
    5858foreach my $f (sort keys %$file) {
    5959    print "$f\n";
     60    print "--\n";
     61    foreach my $l (@{$file->{$f}}) {
     62        print "$l\n";
     63    }
     64    print "--\n";
    6065}
  • branches/3.2/MondoRescue/lib/MondoRescue/File.pm

    r3228 r3229  
    4848=cut
    4949
    50 $pbdebug = 2;
     50#$pbdebug = 2;
    5151
    5252sub mr_file_normalize {
     
    6262return($f) if (not defined $f);
    6363
    64 pb_log(0,"mr_file_normalize file: **$f**\n");
    65 pb_log(0,"mr_file_normalize dir : **$dir**\n") if (defined $dir);
     64pb_log(2,"mr_file_normalize file: **$f**\n");
     65pb_log(2,"mr_file_normalize dir : **$dir**\n") if (defined $dir);
    6666
    6767# Handle case of . at the start in path
     
    171171        $answer = $orig if ($orig =~ /^\//);
    172172        $answer = $dest if ((defined $dest) && ($dest =~ /^\//));
    173         $files->{$answer} = $answer if (defined $answer);
     173        push @{$files->{$f}},$answer if (defined $answer);
    174174    }
    175175}
Note: See TracChangeset for help on using the changeset viewer.