Changeset 3311 for branches/3.2


Ignore:
Timestamp:
Jul 16, 2014, 2:08:33 AM (5 years ago)
Author:
bruno
Message:
  • Fix an issue reported by Dider Diaz for older perl version where the code was incompatible
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/3.2/MondoRescue/bin/mr-read-all-link

    r3262 r3311  
    6767    print "--\n" if ($pbdebug >= 1);
    6868    #print Dumper($f);
    69     foreach my $l (sort keys $file->{$f}) {
     69    foreach my $l (sort keys %{$file->{$f}}) {
    7070        print "==" if ($pbdebug >= 1);
    7171        print "$l\n" if ($pbdebug >= 1);
Note: See TracChangeset for help on using the changeset viewer.