Changeset 3230 in MondoRescue for branches/3.2/MondoRescue/bin/mr-process-ldd
- Timestamp:
- Dec 30, 2013, 10:46:43 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/3.2/MondoRescue/bin/mr-process-ldd
r3229 r3230 56 56 my $file = mr_file_process_ldd(@ARGV) if (defined $ARGV[0]); 57 57 58 my $verbose = undef; 59 $verbose = 1 if ($ARGV[0] eq "-v"); 60 58 61 foreach my $f (sort keys %$file) { 59 print "$f\n" ;60 print "--\n" ;62 print "$f\n" if (defined $verbose); 63 print "--\n" if (defined $verbose); 61 64 foreach my $l (@{$file->{$f}}) { 62 65 print "$l\n"; 63 66 } 64 print "--\n" ;67 print "--\n" if (defined $verbose); 65 68 }
Note:
See TracChangeset
for help on using the changeset viewer.