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

Timestamp:

Jun 3, 2015, 11:56:04 PM (9 years ago)

Author:

Bruno Cornec

Message:

• mindi now logs MINDI_CACHE
• Fix mindi-get-perl-modules by using scan_deps instead of internal code from Mageia which wasn't fully working. This implies en new dep for mindi on Module::ScanDeps

File:

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

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

@@ -14 +14 @@
 use ProjectBuilder::Base;
 use Getopt::Long qw(:config auto_abbrev no_ignore_case);
+use Module::ScanDeps;
 
 =pod
@@ -64 +65 @@
 my @includes;
 my $req;
-my %args;
-
 GetOptions(
      "verbose|v+" => \$opts{'v'},
@@ -92 +91 @@
 
 # deduplicate entry list
-if (defined $ARGV[0]) {
-    %args = map { $_, 1 } @ARGV;
-} else {
+if (not defined $ARGV[0]) {
     pb_syntax();
 }
@@ -109 +106 @@
 close(TMPF);
 
-foreach my $f (keys %args,"$tmpf") {
-    pb_log(1,"Get perl modules on $f\n");
-    $req = mr_get_perl_modules($f);
-    foreach my $k (keys %$req) {
-        $files{$k} = $req->{$k};
-    }
-    pb_log(1,"After mr_get_perl_modules on $f we got:".Dumper(\%files)."\n");
-}
+push @ARGV,$tmpf;
+
+my $h =  scan_deps(
+        files => \@ARGV,
+        recurse => 1,
+    );
+
 unlink("$tmpf");
 
-foreach my $f (sort keys %files) {
-    print "$f\n";
+pb_log(1,"Returning:");
+pb_log(1,Dumper($h));
+pb_log(1,"-----------------------\n");
+foreach my $f (sort keys %$h) {
+        print "$h->{$f}->{'file'}\n";
 }