Changeset 3473 in MondoRescue for branches/3.2/mindi
- Timestamp:
- Oct 3, 2015, 11:16:38 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/3.2/mindi/mindi-get-perl-modules
r3462 r3473 104 104 unlink("$tmpf"); 105 105 106 my $h2; 107 106 108 pb_log(1,"Returning:"); 107 109 pb_log(1,Dumper($h)); 108 110 pb_log(1,"-----------------------\n"); 111 # In case there are links in the perl installation 109 112 foreach my $f (sort keys %$h) { 110 # Skip the temp file 111 next if ($h->{$f}->{'file'} =~ /$ENV{'PBTMP'}/); 112 print "$h->{$f}->{'file'}\n"; 113 # Skip the temp file 114 next if ($h->{$f}->{'file'} =~ /$ENV{'PBTMP'}/); 115 my $file = mr_file_read_all_link($h->{$f}->{'file'}); 116 foreach my $k (keys %$file) { 117 $h2->{$k} = ""; 118 } 119 } 120 121 foreach my $f (sort keys %$h2) { 122 print "$f\n"; 113 123 } 114 124
Note:
See TracChangeset
for help on using the changeset viewer.