Changeset 16503 for util

Show
Ignore:
Timestamp:
05/22/07 13:48:15 (18 months ago)
Author:
audreyt
Message:

* gen_prelude.pl: Do not precompile a module more than once..

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • util/gen_prelude.pl

    r16432 r16503  
    128128    # When module return values are specced, we can make this much 
    129129    # less hacky :-) 
     130    my %seen; 
    130131    for my $file (@{ $Config{precompile} }) { 
     132        next if $seen{$file}++; # Do not precompile duplicate entries 
     133 
    131134        my $module; # guess what to put in %*INC 
    132135        open my $ifh, $file or die "open: $file: $!";