Changeset 3473 in MondoRescue for branches/3.2/mindi/mindi-get-perl-modules

Timestamp:

Oct 3, 2015, 11:16:38 AM (9 years ago)

Author:

Bruno Cornec

Message:

Fix mindi-get-perl-modules to support symlinks

• If perl has symlinks in its installation, mindi-get-perl-modules wasn't returning them. THis is now fixed by calling mr_file_read_all_link

File:

• branches/3.2/mindi/mindi-get-perl-modules (modified) (1 diff)

branches/3.2/mindi/mindi-get-perl-modules

@@ -104 +104 @@
 unlink("$tmpf");
 
+my $h2;
+
 pb_log(1,"Returning:");
 pb_log(1,Dumper($h));
 pb_log(1,"-----------------------\n");
+# In case there are links in the perl installation
 foreach my $f (sort keys %$h) {
-        # Skip the temp file
-        next if ($h->{$f}->{'file'} =~ /$ENV{'PBTMP'}/);
-        print "$h->{$f}->{'file'}\n";
+    # Skip the temp file
+    next if ($h->{$f}->{'file'} =~ /$ENV{'PBTMP'}/);
+    my $file = mr_file_read_all_link($h->{$f}->{'file'});
+    foreach my $k (keys %$file) {
+        $h2->{$k} = "";
+    }
+}
+
+foreach my $f (sort keys %$h2) {
+    print "$f\n";
 }