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


Ignore:
Timestamp:
May 12, 2015, 2:16:38 AM (5 years ago)
Author:
Bruno Cornec
Message:
  • Fix mindi-get-perl-modules to get all modules in dependency as well (pb with Expoerter module missing during UEFI tests)
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/3.2/mindi/mindi-get-perl-modules

    r3231 r3383  
    6262    print "$f\n";
    6363}
     64
     65exit 0;
    6466
    6567sub mr_get_perl_modules {
     
    101103    @includes);
    102104
     105# Recurse on what we just found
     106my $found = mr_process_file(keys %files);
     107find(
     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
    103127return(\%files);
    104128}
    105129
    106 # Adapted From /usr/lib/rpm/mandriva/perl.req
     130# Adapted From /usr/lib/rpm/mageia/perl.req
    107131# by Ken Estes Mail.com kestes@staff.mail.com
    108132# used under the GPL
Note: See TracChangeset for help on using the changeset viewer.