Changeset 3229 in MondoRescue
- Timestamp:
- Dec 30, 2013, 10:46:41 AM (11 years ago)
- Location:
- branches/3.2/MondoRescue
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/3.2/MondoRescue/bin/mr-process-ldd
r3226 r3229 58 58 foreach my $f (sort keys %$file) { 59 59 print "$f\n"; 60 print "--\n"; 61 foreach my $l (@{$file->{$f}}) { 62 print "$l\n"; 63 } 64 print "--\n"; 60 65 } -
branches/3.2/MondoRescue/lib/MondoRescue/File.pm
r3228 r3229 48 48 =cut 49 49 50 $pbdebug = 2;50 #$pbdebug = 2; 51 51 52 52 sub mr_file_normalize { … … 62 62 return($f) if (not defined $f); 63 63 64 pb_log( 0,"mr_file_normalize file: **$f**\n");65 pb_log( 0,"mr_file_normalize dir : **$dir**\n") if (defined $dir);64 pb_log(2,"mr_file_normalize file: **$f**\n"); 65 pb_log(2,"mr_file_normalize dir : **$dir**\n") if (defined $dir); 66 66 67 67 # Handle case of . at the start in path … … 171 171 $answer = $orig if ($orig =~ /^\//); 172 172 $answer = $dest if ((defined $dest) && ($dest =~ /^\//)); 173 $files->{$answer} =$answer if (defined $answer);173 push @{$files->{$f}},$answer if (defined $answer); 174 174 } 175 175 }
Note:
See TracChangeset
for help on using the changeset viewer.