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

Timestamp:

May 12, 2015, 2:16:38 AM (9 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:

• branches/3.2/mindi/mindi-get-perl-modules (modified) (2 diffs)

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

@@ -62 +62 @@
     print "$f\n";
 }
+
+exit 0;
 
 sub mr_get_perl_modules {
@@ -101 +103 @@
     @includes);
 
+# Recurse on what we just found
+my $found = mr_process_file(keys %files);
+find(
+    sub {
+        if ((-f $File::Find::name) 
+            && (/\.pm$/) 
+            && (not defined $files{$File::Find::name})) {
+            foreach my $m (keys %$found) {
+                (my $mod = $m) =~ s|::|/|g;
+                #print "Looking at $mod in $File::Find::name\n";
+                if (index($File::Find::name,"$mod.pm") ne -1) {
+                    $files{$File::Find::name} = $mod;
+                    #push @files, $File::Find::name;
+                    #print "Found $mod in $File::Find::name\n";
+                    last;
+                }
+            }
+        }
+    },
+    @includes);
+
+
 return(\%files);
 }
 
-# Adapted From /usr/lib/rpm/mandriva/perl.req
+# Adapted From /usr/lib/rpm/mageia/perl.req
 # by Ken Estes Mail.com kestes@staff.mail.com
 # used under the GPL