Changeset 3383 in MondoRescue for branches/3.2/mindi/mindi-get-perl-modules
- Timestamp:
- May 12, 2015, 2:16:38 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/3.2/mindi/mindi-get-perl-modules
r3231 r3383 62 62 print "$f\n"; 63 63 } 64 65 exit 0; 64 66 65 67 sub mr_get_perl_modules { … … 101 103 @includes); 102 104 105 # Recurse on what we just found 106 my $found = mr_process_file(keys %files); 107 find( 108 sub { 109 if ((-f $File::Find::name) 110 && (/\.pm$/) 111 && (not defined $files{$File::Find::name})) { 112 foreach my $m (keys %$found) { 113 (my $mod = $m) =~ s|::|/|g; 114 #print "Looking at $mod in $File::Find::name\n"; 115 if (index($File::Find::name,"$mod.pm") ne -1) { 116 $files{$File::Find::name} = $mod; 117 #push @files, $File::Find::name; 118 #print "Found $mod in $File::Find::name\n"; 119 last; 120 } 121 } 122 } 123 }, 124 @includes); 125 126 103 127 return(\%files); 104 128 } 105 129 106 # Adapted From /usr/lib/rpm/ma ndriva/perl.req130 # Adapted From /usr/lib/rpm/mageia/perl.req 107 131 # by Ken Estes Mail.com kestes@staff.mail.com 108 132 # used under the GPL
Note:
See TracChangeset
for help on using the changeset viewer.