Changeset 3311 in MondoRescue

Timestamp:

Jul 16, 2014, 2:08:33 AM (10 years ago)

Author:

Bruno Cornec

Message:

• Fix an issue reported by Dider Diaz for older perl version where the code was incompatible

File:

• branches/3.2/MondoRescue/bin/mr-read-all-link (modified) (1 diff)

branches/3.2/MondoRescue/bin/mr-read-all-link

@@ -67 +67 @@
     print "--\n" if ($pbdebug >= 1);
     #print Dumper($f);
-    foreach my $l (sort keys $file->{$f}) {
+    foreach my $l (sort keys %{$file->{$f}}) {
         print "==" if ($pbdebug >= 1);
         print "$l\n" if ($pbdebug >= 1);