Changeset 3389 in MondoRescue

Timestamp:

Jun 3, 2015, 3:00:27 PM (9 years ago)

Author:

Bruno Cornec

Message:

• Add workaround for a bug with perl 5.10.0 and scan_deps on Tie::Hash::NamedCapture (there may be others like that BTW)

File:

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

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

@@ -97 +97 @@
 pb_temp_init();
 
-my $tmpf = "$ENV{'PBTMP'}/mpgm.$$";
+my $tmpf = "$ENV{'PBTMP'}/mpgm.$$.pl";
 
 open(TMPF,"> $tmpf") || die "Unable to create $tmpf: !$\n";
@@ -104 +104 @@
 print TMPF "# To include module used by Data:Dumper in a masked way for this script\n";
 print TMPF "use bytes;\n";
+print TMPF "# To prevent a bug with perl 5.10.0\n";
+print TMPF "require Tie::Hash::NamedCapture;\n";
 close(TMPF);
 
@@ -119 +121 @@
 pb_log(1,"-----------------------\n");
 foreach my $f (sort keys %$h) {
+        # Skip the temp file
+        next if ($h->{$f}->{'file'} =~ /$ENV{'PBTMP'}/);
         print "$h->{$f}->{'file'}\n";
 }