Changeset 3742 in MondoRescue for branches/3.3/MondoRescue/lib/MondoRescue/File.pm

Timestamp:

Nov 18, 2019, 12:02:21 PM (4 years ago)

Author:

Bruno Cornec

Message:

Fix non working mr-device-mounted

File:

• branches/3.3/MondoRescue/lib/MondoRescue/File.pm (modified) (2 diffs)

branches/3.3/MondoRescue/lib/MondoRescue/File.pm

@@ -26 +26 @@
 
 our @ISA = qw(Exporter);
-our @EXPORT = qw(mr_file_read_all_link mr_file_process_ldd mr_file_normalize mr_file_copy_and_erase_hash);
+our @EXPORT = qw(mr_file_read_all_link mr_file_process_ldd mr_file_normalize mr_file_erase_hash mr_file_copy_and_erase_hash);
 
 =pod
@@ -86 +86 @@
 
 =item B<mr_file_erase_hash>
+
+This function erases all elements in the hash passed in parameter (such as the one created in mr_file_read_all_link)
+
+=cut
+
+sub mr_file_erase_hash {
+
+my $files = shift;
+
+foreach my $i (keys %$files) {
+    delete $files->{$i};
+}
+return();
+}
+
+
+=over 4
+
+=item B<mr_file_copy_and_erase_hash>
 
 This function erases all elements in the hash passed in parameter (such as the one created in mr_file_read_all_link)