Changeset 3389


Ignore:
Timestamp:
Jun 3, 2015, 3:00:27 PM (3 years ago)
Author:
bruno
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:
1 edited

Legend:

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

    r3388 r3389  
    9797pb_temp_init();
    9898
    99 my $tmpf = "$ENV{'PBTMP'}/mpgm.$$";
     99my $tmpf = "$ENV{'PBTMP'}/mpgm.$$.pl";
    100100
    101101open(TMPF,"> $tmpf") || die "Unable to create $tmpf: !$\n";
     
    104104print TMPF "# To include module used by Data:Dumper in a masked way for this script\n";
    105105print TMPF "use bytes;\n";
     106print TMPF "# To prevent a bug with perl 5.10.0\n";
     107print TMPF "require Tie::Hash::NamedCapture;\n";
    106108close(TMPF);
    107109
     
    119121pb_log(1,"-----------------------\n");
    120122foreach my $f (sort keys %$h) {
     123        # Skip the temp file
     124        next if ($h->{$f}->{'file'} =~ /$ENV{'PBTMP'}/);
    121125        print "$h->{$f}->{'file'}\n";
    122126}
Note: See TracChangeset for help on using the changeset viewer.